Работа со временем

[A_Orlov]

Помогите решить задачку пожалуйста!
С начала суток прошло N секунд (N — целое). Найти количество полных минут, прошедших с начала последнего часа.

[Филантроп]

var n:integer;
readln(n);
n:=n-(n div 3600)*3600;
n:=n div 60;
writeln(n);
readln;
end.