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