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.