Program Vrema; {Название программы}
var k,n1,n2:integer; {Записываю переменные, которые буду использовать}
Begin {начало программы}
Writeln('Введите чтобы пользователь ввел количство минут}
readln(k); {Ввод}
n1:= k div 60; {Выделяю количество часов}
n2:=k mod 60; {Выделяю количество минут}
writeln(n1,' часа(ов) ', n2,' минут(ты)'); {Вывожу ответ на экран}
end. {Конец}
(Проверил на Pescal. NET, работает. По вопросам, обращайтесь)
