var
  p,q,q1:real;
  i,p1:integer;
  f:boolean;
begin
  read(p); read(q);
  p:=p/100; q:=q/100;
  f:=true; i:=1;
    while f do begin
                 inc(i);
                 p1:=trunc(p*i)+1;
                 q1:=q*i;
                 if (p1<q1) then f:=false;
               end;
     writeln(i);
end.

I don't understand it too. I have like code