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

begin

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

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

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

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

end.