считать количество не четных чисел введенных с клавиатуры до тех пор,пока не будет введен ноль(Паскаль) Срочно​

var i, a :integer;

Begin

readln(a);

while a <> 0 do

Begin

if a mod 2 <> 0 then

i := i + 1;

readln(a);

end;

writeln(i);

End.