phanso pascal

var k,s,m,t,code:longint;
    x,y:string;

function gcd(a,b:longint):longint;
var t:longint;
begin
        while b>0 do
        begin
                t:=a mod b;
                a:=b;
                b:=t;
        end;
        exit(a);
end;


procedure nhap;
begin
   readln(x);
   readln(y);
end;

procedure pt;
var d,i,y1:longint;
begin
    val(x+y,t,code);
    m:=1;
    for i:=1 to length(y) do m:=m*10;
end;

procedure giai;
begin
    //writeln(t,' ',m);
        s:=gcd(t,m);
        write(t div s,' ',m div s);
end;

begin
    assign(input,'PHANSO.inp');reset(input);
    assign(output,'PHANSO.out');rewrite(output);
    nhap;
        pt;
        giai;
end.