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

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.

Это для строго убывающей последовательности. Если требуется для невозрастающей - замени if b>=a then c:=false; на b>a then c:=false;