integer::K,S read *,K,S print '(i0)',S*100/(100-K) end