Var a,b,c:integer;
begin
writeln(Введите номер секунды);
readln(a);
b:=a div 3600;
c:=(a - 3600*b) div 60;
writeln(b, ч ,c, мин);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.