uses crt;
var s1,s2: real;
i,m,n: integer;
begin
clrscr;
s1:=1; s2:=1;
write('Nhap m,n tuong ung: '); readln(m,n);
   for i:=1 to n do
     s1:=s1*m;
     for i:=1 to n do
     s2:=s2*n;
if s1>s2 then writeln('M^N > N^M') else 
 if s1<s2 then writeln('N^M > M^N') else writeln('N^M = M^N');
readln;
end.

đã test mong đc vote

uses crt;
var n,m,a,b:longint;
function lt(a,b:longint):longint;
var i:longint;
begin
   lt:=1;
   for i:=1 to b do lt:=lt*a;
end;
begin 
clrscr;
   write('Nhap N,M: ');readln(N,M);
   a:=lt(n,m); b:=lt(m,n);
   if a<b then writeln('N^M<M^N');
   if a>b then writeln('N^M>M^N');
   if a=b then writeln('N^M=M^N');
readln
end.