program vd;       // cre: binhnguyen

uses crt;

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

    i,t,n : integer;

procedure kiemtra;

var i : integer;

 begin

  for i:=1 to n-1 do

    begin

     if a[i] > a[i+1] then t:=1;

     if t=1 then break;

    end;

  if t = 0 then write('la day tang dan')

  else write('khong phai day tang dan ');

 end;

begin

readln(n);

for i:=1 to n do read(a[i]);

t:=0;

kiemtra;

end.

uses crt;
var i,n:longint; a:array[1..10000]of longint;
function kt(n:longint):boolean;
var i:longint;
        begin
         kt:=true;
         for i:=1 to n-1 do if(a[i]>a[i+1])then kt:=false;
        end;
begin
 clrscr;
  write('nhap so phan tu cua mang:');readln(n);
  for i:=1 to n do
        begin
         write('nhap a[',i,']=');readln(a[i]);
        end;
  write(kt(n));
 readln;
end.