Сколько нечетных среди n введенных причем надо вводить эти числа с клавиатуры n раз

begin write('Введите n: ');  var n := ReadInteger; var c := 0; for var i:=1 to n do begin write ('Введите целое число: '); var x := ReadInteger; if x mod 2 <> 0 then c += 1;  end; writeln('Количество нечетных равно ', c);end.