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

Program Integer19;

var
  s, m: integer;

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

end.