С клавиатуры вводятся N чисел. Определить кол-во нечетных и вывести на экран.Паскаль

Program test; var a,b:integer; begin b:=0; repeat readln(a); if a mod 2<>0 then b:b+1; until a=0; writeln(b); end. Если пишешь в Turbo Pascal перед " end." добавь строчку "readln;".  Писал на скорую руку, проверь, перед тем, как сдавать учителю ;) Чтобы вывел результат - нужно ввести с клавиатуры 0.