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