Выполните 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]lt;gt;0 do

begin

 i:= i+1;

 readln(a[i]);

 if a[i]gt;=a[i-1]

   then b:=false;

end;

if b=false

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

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

end.