program raf105;

var a:array[1..100] of integer;

i,b:integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

i:=1;

readln(a[i]);

while a[i]<>0 do

begin

 i:= i+1;

 readln(a[i]);

 if a[i]>=a[i-1]

   then b:=1;

end;

if b=1

 then writeln('Последовательность не является убывающей.')

 else writeln('Последовательность убывающая.');

end.

Программа написана на языке PascalABC.NET