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