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

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

program NumbersInput
va
number, prevNumber, count: Integer
begi
count := 0
prevNumber := -1
repea
Write('Введите число: ')
Readln(number)
if number > prevNumber the
begi
count := count + 1
prevNumber := number
en
els
Break
until false
Writeln('Количество введенных чисел: ', count)
end.