Program ct;
Uses crt;
Var a, b: integer;
Begin
Clrscr;
Write('nhap a, ,b'); Readln(a, ,b);
If a mod b = 0 then writeln(b, 'la uoc cua' ,a)
else a mod b <> 0 then writeln(b, 'khong phai uoc cua' ,a);
If b mod a = 0 then writeln(a, 'la uoc cua' ,b)
else b mod a <> 0 then writeln(a, 'khong phai uoc cua' ,b);
Readln
End.