Циклический вычислительный процесс

[Koketkaa]

Дана последовательность чисел a1, a2, a3, … . Количество элементов в последовательности заранее неизвестно. Написать программу с запросом продолжения ввода (массив не использовать). Получить число нулевых членов последовательности.

[Serge_Bliznykov]

var Count : integer; {счётчик нулевых чисел}
  ch : char;
  A : integer;
begin
  Writeln;
  Count := 0;
  repeat
    Write('Введите целое число: '); 
    Readln(A);
    if A=0 then Count := Count + 1;
    Write('Ещё будете вводить числа (Y/N) ?  ');
    Readln(ch); 
  until ch='N' or 'n';
  WriteLn('Нулевых чисел было :',Count);
  Readln
end.

[Koketkaa]

Огромное спасибо! Но вы бы не могли бы мне помочь с другими заданиям