program m_n;

uses crt;

var m,n:integer;

begin

       clrscr;

       write('Nhap m: ');   readln(m);

       write('Nhap n: ');   readln(n);

       if m mod n=0 then writeln('a. Chia het')

              else writeln('a. Khong chia het');

       if m>n then write('b. m lon hon')

              else if n>m then write('b. n lon hon')

                     else write('c. m=n');

       readln;

end.

uses crt;
var n,m:longint;
begin
clrscr;
   write('n,m= ');readln(n,m);
   if m mod n=0 then writeln('m chia het cho n')
   else writeln('m khong chia het cho n');
   if m>n then writeln('m>n') else
   if m<n then writeln('m<n') else writeln('m=n');
readln
end.