Определить часы минуты и секунды прошедших с начала суток - Pascal ABC

Формулировка задачи:

Здравствуйте! Не могу додуматься как вычислить секунды,может кто подскажет?Вот код, который нашел в интернете,но как вычислить секунды не знаю. Задача : Определить h часов, m минут и s секунд, прошедших с начала суток до того момента (в первой половине дня), когда часовая стрелка повернулась на f градусов (0 <= f <= 360, f – вещественное число).

                    Листинг программы
                
 
                        
                          
                    
Program chasi;
var
 
 f:real;
 h,m,s:integer;
 
begin
 repeat
 writeln('Введите угол F в градусах');
 readln(f);
 until(f>=0)and(f<360);
 
 h:=trunc(f/30);
 m:=trunc(2*f)-60*h;
 s:=???;
 
 writeln('С начала суток прошло');
 if h<10 then write('0',h,':') else write(h,':');
 if m<10 then write('0',m,':') else write(m,':');
 if s<10 then write('0',s) else write(s);
 
end.

Решение задачи: «Определить часы минуты и секунды прошедших с начала суток»

Листинг программы

Program chasi;
var  f:real;
     t,h,m,s:integer;
begin
repeat
write('Введите угол F в градусах F=');
readln(f);
until(f>=0)and(f<=360);
//вычислим время в секундах 1 градус=12/360*3600=120 секунд
t:=trunc(f*120);
h:=t div 3600;
m:=t div 60 mod 60;
s:=t mod 60;
writeln('С начала суток прошло');
if h<10 then write('0',h,':') else write(h,':');
if m<10 then write('0',m,':') else write(m,':');
if s<10 then write('0',s) else write(s);
end.

Объяснение кода листинга программы

Этот код написан на языке Pascal ABC и выполняет следующие действия:

Объявляет переменные t, h, m и s типа integer и f типа real.
Запрашивает у пользователя угол F в градусах и сохраняет его в переменной f.
Проверяет, что значение f находится в диапазоне от 0 до 360 градусов.
Вычисляет время в секундах, используя формулу 1 градус = 12/360 * 3600 секунд.
Делит полученное значение на 3600 для получения часов, остаток от деления на 60 для получения минут, и само значение для получения секунд.
Выводит на экран количество прошедших секунд, а затем выводит часы, минуты и секунды в формате часы:минуты:секунды.
Если значение h (часы) меньше 10, то выводится ноль перед часами. Аналогично для минут и секунд.
Конец программы.