var tu,mau:int64;
Function UCLN(x,y:int64):int64;
Begin
     if x mod y = 0 then UCLN:=y 
     else UCLN:=UCLN(y,x mod y);
end;
//////////////////////////////
procedure Rutgon(a,b:int64);
var n:int64;
begin
   if a mod b = 0 then write(a div b) else
   begin
        n:=UCLN(a,b);
        a:=a div n;
        b:=b div n;
        if a>b then write(a div b,'/',a mod b,'/',b)
        else write(a,'/',b);
   end;
end;
//////////////////////////////
begin
     write('Nhap tu so: ');readln(tu);
     write('Nhap mau so: ');readln(mau);
     Rutgon(tu,mau);
     readln;
end.