program main implicit none integer :: N, H, M, T, time read *, N, H, M, T time = (N-1) * T M = M + time print *, mod(H+M/60, 24) print *, mod(M, 60) end program main