Вводится число, это время в секундах. запишите программу, которая определяет это время в часах. минутах. секундах​

program n1;

var time, seconds, minutes, hours: integear;

begin

   readln(time);

   seconds := time mod 60;

   time := (time - seconds) / 60;

   minutes := time mod 60;

   time := (time - minutes) / 60;

   hours := time;

   writeln (hours, ' часов ', minutes, ' минут ', seconds, ' секунд');

end.

Объяснение:

Написано на языке Pascal