program main implicit none real::A,B read *,A,B print '(i0)', INT(50*A) + INT(50*A/(0.8+0.2*B)) end program main