program kiemtra;
var A:array[1..30] of integer;
n,i:byte;
kt:boolean;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');
for i:=1 to n do
begin
write('phan tu thu ',i,': ');
readln(A[i]);
end;
kt:=true;
for i:=1 to n-1 do
if A[i]>A[i+1] then
begin
kt:=false;
break;
end;
if kt=true then write('La day khong giam')
else write('Khong phai day khong giam');
readln
end.