Uses crt;
var f,g:text;
n,i:longInt;
a:array[1..1000000] of integer;
Kt:boolean;
begin
assign(f,’nhap.inp’);reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
assign(g,’xuat.out’);rewrite(g);
kt:=true;
for i:=1 to n-1 do if a[i]>a[i+1] then
Begin
kt:=false;
Write(g,’la day tang’);
Break;
End;
if kt:=true then write(g,’ko phai day tang’);
close(g);
end.