I do not see error here, but didn't pass the 17'th test
var p,q: extended;
    a,b: longint;
BEGIN
    read(p,q); p:=p/100; q:=q/100;
    a:=1;
    while (true) do begin
       b:=1;
     while (a/b>=q) do inc(b);
     if (a/b>p) then begin
          write(b);
          halt(0);
       end else inc(a);
    end;
END.