Программа получает на вход последовательность целых неотрицательных чисел, каждое число
записано в отдельной строке. Последовательность завершается числом 0, при считывании
которого программа должна закончить свою работу и вывести количество чисел
последовательности. (цикл while)
(PascalABC)
var i,cnt: integer;
begin
i:=-1;
cnt:=0;
while (i<>0) do
begin
write('Введите число: ');
readln(i);
cnt:= cnt + 1;
end;
writeln('Количество чисел в последовательности равно ',cnt);
end.