Используя процедуры общего назначения, составить программы для решения задач с заданным вариантом условия

[Васильева Зинаида]

Описать процедуру TimeToHMS(T, H, M, S), определяющую по времени T (в секундах) содержащееся в нем количество часов H, минут M и секунд S (T – входной, H, M и S – выходные параметры целого типа). Используя эту процедуру, найти количество часов, минут и секунд для пяти данных отрезков времени T1, T2 , …, T5.

[Lokos]

Процедура

function TimeToHMS(Time:Integer; Flag:Byte):real;
begin
   if Flag=1 then
      TimeToHMS:=(Time/3600);//вернет часы
   if Flag=2 then
      TimeToHMS:=(Time/60);//Вернет минуты
   if Flag=3 then
      TimeToHMS:=Time;//секунды   
end;

с учетом что в функцию передаются секунды
Пример вызова

  k:= TimeToHMS(3600,1);

к будет равно 1