кол-во непарных элементов массива
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.
ему мод не нравится в условии=(
что делать?