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