Program BTT;
Uses crt;
Type manga = array[1..10000] of longint;
Var A: manga;
n,i: longint;
Function ktra_tang(A: manga; n: longint): boolean;
Var i,j: longint;
Begin
For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]>A[j] then exit(false);
exit(true);
End;
Function ktra_giam(A: manga; n: longint): boolean;
Var i,j: longint;
Begin
For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]<A[j] then exit(false);
exit(true);
End;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
End;
If ktra_tang(A,n) then Write('Mang tang dan')
Else If ktra_giam(A,n) then Write('Mang giam dan')
Else Write('Mang chua duoc sap xep');
Readln
End.
