real*8::cost integer*4::tax read *,cost,tax print '(i0)',INT(cost*(100+tax)/100) end