integer::k,s
      read*,k,s
      print'(i0)',100*s/(100-k)
end