Program Integer20;
var
s, c: integer;
begin
writeln('Сколько прошло секунд с начало суток=');
readln(s);
c := (s div 60) div 60;
writeln('Число полных часов =', c)
end.
Program Integer20;
var
s, c: integer;
begin
writeln('Сколько прошло секунд с начало суток=');
readln(s);
c := (s div 60) div 60;
writeln('Число полных часов =', c)
end.