Даны числа целого типа заданные с клавиатуры выяснить сколько среди них нечетных.найти их сумму условием окончания ввода служит 0

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";

ПЕР
  число, сум_неч: ЦЕЛ;

УКАЗ
  сум_неч := 0;
  ПОВТОРЯТЬ
    число := Приём.Число(); Вывод.Цепь(" ");
    ЕСЛИ НЕ ЧЕТ(число) ТО УВЕЛИЧИТЬ(сум_неч, число) КОН
  ДО число = 0;
  Вывод.ЧЦел("^%d", сум_неч, 0, 0, 0)

КОН Задание.