Составить программу которая определяет среди введеных с клавиатуры целых чисел количества нечетных до ввода числа 0

vara,k :integer;beginrepeatbeginwriteln ('введи число');read (a);if  (a mod 2 <>0) then k:=k+1;end;until a=0;writeln ('количество нечетных чисел k=',k);end.