Кол-во непарных элементов массива const n = 5; var a: array[1..n] of integer; i, c: integer; begin c : = 0; for i: =1 to n do begin readln(a[i]); if mod(a[i])< > o then c: =c+1 end; writeln(c); end. ему мод не нравится в условии=( что делать?

const
n=5;
var
mas:array[1..n] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to n do
begin
readln(mas[i]);
if mas[i] mod 2 = 0 then // Если mas[i] делиться на 2 без остатка,то...
sum:=sum+1;
end;
writeln(sum);
end.