С начала суток прошло N секунд (N — целое). Найти количество полных часов, прошедших с начала суток — Pascal(Паскаль)

Program Integer20;

var
  s, c: integer;

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

end.