phanso781 pascal

var i,code,tu,mau,x,k,kt,p:longint;
    dau,cuoi,s,stu:string;

function ucln(a,b:longint):longint;
var t:longint;
begin
    t:=b mod a;
    while t<>0 do
    begin
        T:=a mod b;
        a:=b;
        b:=t;
    end;
    exit(a);
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.