Дан массив А(20), числа в диапазоне от -50 до +120. Найти количество чисел кратных 4 и их сумму.

Конкретики нет, массив целочисленный, т.к. кратность проверяется во множестве целых.

var A:array[1..20] of integer;

   i,s,n:integer;

begin

n:= 0; s:= 0;

for i:=1 to 20 do begin

 readln(A[i]);

 if A[i] mod 4 = 0 then begin

     n:= n + 1;

     s:= s + A[i];

    end;

end;

writeln('Кол-во чисел, кратных четырем - ', n);

writeln('Сумма чисел, кратных четырем - ', s);

end.