program desimtaines_trupmenos_keitimas_paprastaja;
  { 118 u‘davinys }

  procedure skaitymas (var skaitiklis, vardiklis: longint;
                       var blogai: boolean);
  { dežimtain‚s trupmenos skaitymas }
  { trupmeninŠ dal galime skirti tiek kableliu, tiek tažku }
    var c: char;
        kablelis: boolean;
  begin
    blogai := false;   { dežimtain‚ trupmena u‘ražyta teisingai }
    skaitiklis := 0; vardiklis := 1;
    kablelis := false; { dar nesutiktas kablelis }
    repeat
      read (c);
      if c in ['0'..'9']    { jei skaitmuo }
      then begin
              skaitiklis := skaitiklis * 10 + (ord(c) - ord('0'));
              if kablelis
                 then vardiklis := vardiklis * 10
           end
      else if (c = '.') or (c = ',')
           then kablelis := true
           else blogai := true  { blogai u‘ražyta dežimtain‚ trupmena }
    until eoln
  end;

  procedure prastinimas (var a, b: longint);
  { trupmenos prastinimas }
    var d: longint;
    function dbd (x, y: longint): longint;
    { did‘iausias bendrasis daliklis }
    begin
      if x = 0 then dbd := y
               else dbd := dbd(y mod x, x)
    end;
  begin
    d := dbd(a, b);
    a := a div d;
    b := b div d
  end;

   var skaitiklis, vardiklis: longint;
       blogai: boolean;
begin
  skaitymas (skaitiklis, vardiklis, blogai);
  if not blogai
     then begin
            prastinimas (skaitiklis, vardiklis);
            writeln (skaitiklis, '/', vardiklis)
          end
     else writeln ('BLOGAI U’RAŸYTA DEŸIMTAIN TRUPMENA')
end.
