program main real :: velocity integer :: time read *, velocity, time print '(I0)', nint(velocity * time) end