Сначала суток прошло л N секунд ( N-цело юте) Найти количество полных часов прошедши с начала суток
Program n1; var a: integer; begin readln(a); write(trunc(a/60) div 60); end.