ввести с клавиатуры 5 чисел, подсчитать сколько из них не четных, вывести результат на экран.

Var x,count,i: integer;
Begin
For i := 1 to 5 do begin
Readln(x);
If ((x mod 2) <> 0 ) then inc(count);
End;
Write(count);
End.