var
 p,q:real;
 j:longint;
 i:longint;
begin
 readln(p,q);
 if (p>50)and(q>50) then
  begin
   q:=100-p;
   p:=100-q;
  end;
 for j:=1 to 20000 do
  begin
   i:=round(j/q*100);
   if (i*p/100<j)and(i*q/100>j) then
    begin
      writeln(i);
      halt;
    end;
  end
end.