Uses crt; var a,b:longint; begin clrscr; write('a=');readln(a); write('b=');readln(b); if (a<=b) then if b mod a=0 then writeln(a,' la uoc cua ',b) else writeln(a,' khong uoc cua ',b) else if a mod b=0 then writeln(b,' la uoc cua ',a) else writeln(b,' khong uoc cua ',a); readln end.
