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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.