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

uses crt;var a,t,ans:integer;beginread(a);ans:=1;while true dobegint:=a;read(a);if a>t thenans:=ans+1elsebreak;end;writeln(ans); end.