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

program ex;
var  a, k: integer;
begin  a := 1;  k := 0;  while a <> 0 do   begin    read(a);    if (not (a mod 2 = 0)) then      k := k + 1;  end;  write(k)// Если нужен только подсчет, можно убрать.end.