Сначала суток суток. найти количество полных минут с начала последнего часа.

Uses wincrt; var n : integer; i : byte; begin write('sekund : '); readln(n); i := n div 60; writeln('minut : ',i); end.