[Aristarh Dark]

Код:

var
  h,m:integer;
begin
  h:=time div 3600;  //часы
  m:=(time-(h*3600)) div 60; //минуты
end;

как подсчитать секунды - домашнее задание