uses crt;
var m, n, i, smm, smn: integer;
begin
   writeln('Hay nhap so nguyen m:');
   readln(m); //Gán dữ liệu cho số nguyên m
   writeln('Hay nhap so nguyen n:');
   readln(n); //Gán dữ liệu cho số nguyên n
   writeln('Uoc chung cua ', m, 'la: ');
   for i := 1 to m do //Dùng vòng lặp for để tìm ước chung của m
      begin
      if m mod i = 0 then //Nếu m chia hết cho i
      write(i, ' ');
   end;
   writeln;
   writeln('Uoc chung cua ', n, ' la: ');
   for i := 1 to n do //Tương tự như tìm uc cho n
      begin
      if n mod i = 0 then
      write(i, ' ');
   end;
   writeln;
 if m mod 2 = 0 then // Nếu m chia hết cho 2
    writeln(m, ' la so chan: DUNG')
 else
    writeln(m, ' la so chan: SAI');
 if n mod 2 = 0 then // nếu n chia hết cho 2
    writeln(n, ' la so chan: DUNG')
 else
    writeln(n, ' la so chan: SAI');
 // Tìm m^n
 smm := 1;
 for i := 1 to n do //Vd: 2^4 = 4 lần 2*2 => lặp 4 lần 2*2.
    smm := smm * m;
 writeln(m, ' ^ ', n, ' = ', smm);
 smn := 1;
 for i := 1 to m do
    smn := smn * n;
 writeln(n, ' ^ ', m, ' = ', smn);
 if smm > smn then
    writeln(smm, ' > ', smn)
 else if smm < smn then 
    writeln(smm, ' < ', smn)
 else
    writeln(smm, ' = ', smn);
end.

== Chúc bạn học tốt nha! ==

uses crt;
var m,n,i,nho1,nho2:integer;
ltn,ltm:real;
begin
    clrscr;
    write('Nhap m= ');readln(m);
    write('Nhap n= ');readln(n);
    {Tim uoc chung lon nhat}
    nho1:=m;nho2:=n;
    while nho1<>nho2 do
       if nho1>nho2 then nho1:=nho1-nho2 else nho2:=nho2-nho1;
    write('Uoc chung cua 2 so ',m,' va ',n,' la: ');
    {Uoc cua uoc chung lon nhat se la uoc chung cua 2 so m va n}
    for i:=1 to nho1 do
       if nho1 mod i = 0 then write(i,' ');
    writeln;
    if (m mod 2=0) and (n mod 2=0) then writeln('Dung') else writeln('Sai');
    ltn:=1;ltm:=1;
    for i:=1 to n do ltm:=ltm*m;
    for i:=1 to m do ltn:=ltn*n;
    write(n,'^',m,' ');
    if ltn>ltm then write('> ') else
       if ltn<ltm then write('< ') else
          write('= ');
    write(m,'^',n);
readln;
end.