program CountNumbers;
var
inputNumber: integer;
count: integer;
begin
count := 0;
repeat
writeln('Введите число:');
readln(inputNumber);
count := count + 1;
until inputNumber = 0;
writeln('Количество введенных чисел:', count - 1);
end.