program tgps;
uses crt;
var a,b,d:int64;
function ucln(x,y:int64):longint;
var t:longint;
begin
if x mod y=0 then exit(y) else ucln:=ucln(y,x mod y);
end;
begin
clrscr;
readln(a,b);
if (a=0) or (b=0) then
begin
writeln(0);
writeln(0);
inc(d);
end;
if d=0 then writeln(a div ucln(a,b),' ',b div ucln(a,b));
readln;
end.
ktra nếu a=0 thì in 0
nếu b=0 thì cx in 0
nếu cả 2 khác 0 thì tìm ucln rồi đem chia.
TỰ LÀM 100% ko cóp nha. Thề