{* Перевод из минут в часы *}

Unit LIN_10;
Interface
Implementation
Begin
 writeln('Перевод из минут в часы');
End.

Program lin_10;

Uses lin_10.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  a : real;
  b : real;
  c : real;
Begin
  writeln('Vvedite kol - vo minut');
  readln(a);
  b := trunc(a / 60);
  c := a - (60 * b);
  writeln(b : 5 : 0, ' chasov', c : 5 : 0, ' minut');
  readkey; {* Ждем нажатия пользователя *}
End.