{* Задача 543 *}

Unit ZADACH543;
Interface
Implementation
Begin
 writeln('Текущее показание электронных часов: m часов (0≤ m≤ 23), n минут (0≤ n≤59), k секунд (0≤k≤59). Какое время будут показывать часы через p часов q минут r секунд?');
End.

Program zadach543;
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  m : integer;
  n : integer;
  k : integer;
  p : integer;
  q : integer;
  r : integer;
Begin
  Clrscr; {* Очищаем экран *}
  Write ('Текущее время (час., мин., сек.)=');
  Read(m, n, k);
  Write ('Следующее время (час., мин., сек.)=');
  Read(p, q, r);
  m := m + p;
  n := n + q;
  k := k + r;
  m := (m + trunc((n + trunc(k / 60)) / 60)) Mod 24;
  n := (n + trunc(k / 60)) Mod 60;
  k := k Mod 60;
  Writeln(m, ' час. ', n, ' мин. ', k, ' сек.');
  Readkey; {* Нажмите любую клавишу *}
End.