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

Uses crt;
var a,t,ans:integer;
begin
read(a);
ans:=1;
while true do
begin
t:=a;
read(a);
if a>t then
ans:=ans+1
else
break;
end;
writeln(ans); 
end.