Дано целое число n (> 1) и набор из n вещественных чисел. проверить, образует ли данный набор возрастающую последовательность. если образует, то вывести true, если нет — вывести false. подробное решение,) и не с инета)

Var n,i:integer; a,b:real; l:boolean;
begin
write('N='); readln(n);
l:=true;
write('a='); readln(a);
for i:=2 to n do
 begin
 write('a='); readln(b);
 if b<a then l:=false;
 a:=b;
 end;
writeln(l);
end.

Пример:
N=5
a=2
a=4
a=5
a=7
a=9
True