main = do
  [n,h,m,t] <- (map read . words) <$> getLine
  let wakeup = (h * 60 + m + (n - 1) * t) `mod` 1440
  putStrLn . show $ wakeup `div` 60
  putStrLn . show $ wakeup `mod` 60