Выполните 2 (п2).программу напишите на языке паскаль.используйте команду array,если можно

program raf105;

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

i:integer;

b:boolean;

begin

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

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

i:=1;

readln(a[i]);

b:=true;

while a[i]<>0 do

begin

 i:= i+1;

 readln(a[i]);

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

   then b:=false;

end;

if b=false

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

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

end.