Дан массив. Найти сумму чётных элементов, меньших 50

  • const
        auto = true;
        n = 100;

    var
        a: array[1..n] of integer;
        s, i: integer;

    begin
        for i := 1 to n do
        begin
            if auto then
                a[i] := random(200)
            else readln(a[i]);
           
            if (a[i] < 50) and (i mod 2 = 0) then
                s := s + a[i];
           
            if auto then
                Write(a[i], ‘ ‘);
        end;
        WriteLn();
        WriteLn(s);
    end.