Nhập vào bàn phím 2 số nguyên dương M và N. Hãy so sánh M^N với N^M . Free pascal

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