Напишите программу для паскаля которая переводит секунды в часы и минуты

Лови по быстрому сделал ;-) write(min,' мин = '); h:=min div 60; min:=min-(60*h); writeln(h,' ч ',min,' мин.');