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

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