program main
implicit none
 integer :: d,p,cost
 read *, d,p
  cost=d*p/100
  cost= d + cost
 write (*,*) cost
 end program main