Написать программу для pascal abc
С начала суток прошло N секунд (целое). Найти кол-во полных часов, прошедших с начала суток.

Если только полных часов то так:program pr1;var s,ch:integer;beginreadln(s);ch:=s div 3600;writeln(ch,' час(ов)');end.