Вводится последовательность из N целых чисел. Является ли последовательность возрастающей? Выполните задачу на Pascal без использования массивов.

Program n_1;

var a, b, i, n: integer; c: boolean;

begin

   c:=true;

   read(n, a);

   for i:=2 to n do begin

       read(b);

       if b<=a then c:=false;

       a:=b;

   end;

   if (c=true) then writeln('Поседовательность возрастающая')

   else writeln('Поседовательность не является возрастающей');

end.