uses Crt;
var
    a,b,c           :longint;
    a1,b1           :longint;
begin
    ClrScr;
    Write('‚ўҐ¤ЁвҐ §**зҐ*ЁҐ зЁб«ЁвҐ«п:>');
    Readln(a);
    Write('‚ўҐ¤ЁвҐ §**зҐ*ЁҐ §**¬Ґ**⥫п:>');
    Readln(b);
    if b=0 then begin   
      Writeln('ЋиЁЎЄ*!! ‡**¬Ґ**⥫м *Ґ ¤®«¦Ґ* а*ў*пвбп *г«о.');
      Readkey;
      Halt(1);
    end;
    if a=0 then begin
      Writeln(a,'/',b,'=',0);
      Readkey;
      Halt(1);
    end;
    a1:=a;   
    b1:=b;
    if b>a then   
     begin
      c:=a;
      a:=b;
      b:=c;
     end;
    while a mod b<>0 do
     begin
      c:=b;
      b:=a mod b;
      a:=c;
     end;
    Write(a1,'/',b1,'=',a1 div b);
    if b1 div b<>1 then
     Writeln('/',b1 div b);
    ReadKey;
end.