ПАСКАЛЬ, СОСТАВИТЬ ПРОГРАММУ: Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.

Предыдущий
вопрос Следующий
вопрос

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