program ural1011;
var i:longint;
    one,p,q:extended;
begin
  read(p,q);
  i:=1;
  repeat
    one:=100/i;
    if trunc(q/one)-trunc(p/one)>0 then
      begin
        if (frac(q/one)>0) and (frac(p/one)>0) then
          begin
            writeln(i);
            halt;
          end;
      end;
    i:=i+1;
  until false;
end.

Why didn't I get AC by submiting this one?