program p2707;
 var a,b,c,d:integer;
     out:real;

 procedure swap(var x,y:integer);
  var i:integer;
  begin
   i:=x; x:=y; y:=i;
  end;

begin
 repeat
  readln(a,b,c,d);
  if a=0 then halt;
  if b>a then swap(a,b);
  if d>c then swap(c,d);
  out:=c/a;
  if d/b<out then out:=d/b;
  if out>=1 then out:=1;
  out:=trunc(out*100);
  writeln(out:0:0,'%')
 until false;;
end.