Помогите написать, пожалуйста, программку на Pascal к этой задачке

превосходно, что не написали крайнего часа, желая еще одного тоже абсурд, ну заключительного же, фейспалм да и только

begin

 var T := 3665;//время в секундах

 Println('прошло полных часов с начала суток:', T div 3600);

 Println('прошло полных минут с начала заключительного часа:', T mod 3600 div 60);

 Println('прошло полных секунд с начала заключительной минутки:', T mod 3600 mod 60)

end.