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

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