Напишите программу в Паскале, которая запрашивает у пользователя числа до тех пор, пока каждое следующее число больше предыдущего. В конце программа сообщает, сколько чисел было введено.

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

program NumbersInput;
var
number, prevNumber, count: Integer;
begin
count := 0;
prevNumber := -1;
repeat
Write('Введите число: ');
Readln(number);
if number > prevNumber then
begin
count := count + 1;
prevNumber := number;
end
else
Break;
until false;
Writeln('Количество введенных чисел: ', count);
end.