program main implicit none real::v integer::t read *,v,t print '(i0)', INT(v*t+epsilon(v)) end program main