var a:array [1..1000] of integer;
i,n,p:integer;

begin
writeln ('Введите кол-во элементов ');
read (n);
writeln ('Введите элементы массива ');
for i:=1 to n do begin
   write ('a[',i,']=');
   readln(a[i]);
  end;
  p:=0;
 for  i:=1 to n-1 do
  if a[i] > a[i+1] then p:=p+1;
   if p=n-1 then writeln('Убывает')
   else writeln('Неубывает')
end.