PHANSO781 PASCAL

var pow:array[0..100] of int64;
    i,code,tu,mau,x,k,kt,p:longint;
    dau,cuoi,s,stu:string;

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

procedure giai;
begin
    x:=pos('.',s);
    stu:=s;
    delete(stu,x,1);
    val(stu,tu,code);
    k:=length(s)-x;
    mau:=1;
    for i:=1 to k do
        mau:=mau*10;
    p:=ucln(tu,mau);
    writeln(tu div p,' ',mau div p);
end;

begin
    assign(input,'phanso.inp');reset(input);
    assign(output,'phanso.out');rewrite(output);
    readln(s);
    giai;       
end.