Ввести с клавиатуры 10 целых чисел.Подсчитать количество нечётных (в паскаль турбо)

Question

Ввести с клавиатуры 10 целых чисел.Подсчитать количество нечётных (в паскаль турбо)

Answer 1

Program;
Uses vincrt;
Var i,n: integer
Begin
i:=0;
writeln('n=');
Raedln(n);
If (n mod 2 = 1) then i:=i+1;
End.