{* Продолжительность промежутка времени в часах, минутах, секундах *}

Unit Z_TIME3;
Interface
Implementation
Begin
 writeln('Продолжительность промежутка времени в часах, минутах, секундах');
End.

Program z_time3;

Uses z_time3.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  Hour1        : byte;
  Hour2        : byte;
  Minute1      : byte;
  Minute2      : byte;
  Second1      : byte;
  Second2      : byte;
  HourResult   : byte;
  MinuteResult : byte;
  SecondResult : byte;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите количество часов в начале промежутка');
  readln(Hour1);
  writeln('Введите количество минут в начале промежутка');
  readln(Minute1);
  writeln('Введите количество секунд в начале промежутка');
  readln(Second1);
  writeln('Введите количество часов в конце промежутка');
  readln(Hour2);
  writeln('Введите количество минут в конце промежутка');
  readln(Minute2);
  writeln('Введите количество секунд в конце промежутка');
  readln(Second2);
  Minute2 := Minute2 + ((Second2 + 60 - Second1) Div 60);
  writeln('Minute2', Minute2);
  SecondResult := (Second2 + 60 - Second1) Mod 60;
  Hour2 := Hour2 + ((Minute2 + 59 - Minute1) Div 60) - 1;
  MinuteResult := (Minute2 + 59 - Minute1) Mod 60;
  HourResult := Hour2 - Hour1;
  writeln; {* Пустая строка *}
  writeln('Продолжительность промежутка времени');
  writeln(HourResult, ' часов ', MinuteResult, ' минут ', SecondResult, ' секунд');
  readln; {* Приостановка программы. Ожидание Enter *}
End.