{* Количество полных часов и полных минут *}

Unit BEGIN_019;
Interface
Implementation
Begin
 writeln('Идет k-ая секунда суток. Определить, сколько полных часов и полных минут прошло к этому моменту от начала суток. ');
End.

Program begin_19;

Uses begin_019.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  k : integer;
Begin
  writeln('введите число секунд');
  readln(k);
  writeln(k Div 3600, ' полных часов, ', k Div 60, '  полных минут');
  readln; {* Ждем нажатия Enter *}
End.