Чуть-чуть изменил, ты вводишь сначала число с клавиатуры, это N. В твоем случае - 4. Затем пишешь четыре целых числа. Он тебе выдаст количество нечетных.
var a,n,i,k:integer;
begin k:=0;
read(n);
while iread(a);
if (a mod 2=1) then k:=k+1;
i:=i+1;
end;
writeln(k);
end.