read(p,q);
  for i:=2 to 10000000 do begin
    a:=i/100*p;
    b:=i/100*q;
    a1:=trunc(a);
    b1:=trunc(b);
    if (b1-a1)>=0.99 then begin
      write(i);
      halt;
    end;
  end;
why WA ?