的确不知道错哪儿了……
program pku1650;
var r:real;
    n,fz,fm,k:longint;
    b:boolean;
begin
   readln(r);
   readln(n);
   b:=true;
   fz:=1;  fm:=1;
   k:=1;
   while b and(fz/fm<>r) do
      if (k>n)or(trunc(k*r)>n)
       then b:=false
       else begin
               if (trunc(k*r)>0)and(abs(r-trunc(k*r)/k)<abs(r-fz/fm))
                then begin
                        fz:=trunc(k*r);
                        fm:=k;
                     end;
               if (trunc(k*r)<n)and(abs(r-(trunc(k*r)+1)/k)<abs(r-fz/fm))
                then begin
                        fz:=trunc(k*r)+1;
                        fm:=k;
                     end;
               k:=k+1;
            end;
   writeln(fz,' ',fm);
end.