↑ or not

uses crt;
const n=5;
var i,k: integer; a:array[1..n] of real;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
if (a[i]<a[i+1]) then inc(k);
if k=n-1 then writeln('Возрастающая')
else writeln('Не возрастающая');
end.