Дана последовательность реальных чисел а1, а2, ..., аn. Узнать, будет ли

var
nbsp;nbsp;a:array[1..100] of real;
nbsp;nbsp;i,n: byte;
nbsp;nbsp;f: boolean;
begin
nbsp;nbsp;readln(n);
nbsp;nbsp;for i:=1 to n do
nbsp;nbsp;nbsp;nbsp;readln(a[i]);
nbsp;nbsp;f:=true;
nbsp;nbsp;for i:=2 to n do
nbsp;nbsp;nbsp;nbsp;if (a[i]gt;a[i-1]) and (f=true) then f:=true
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;else f:=false;
nbsp;nbsp;writeln(последовательность возрастающая: ,f);
nbsp;nbsp;readln;
end.