main = do
 [n,h,m,t] <- map read . words <$> getLine
 mapM_ print (neru n h m t)

neru n h m t = [mod h' 24, m']
 where (h',m') = divMod (h*60+m + (n-1)*t) 60