begin
var T := 3665;//время в секундах
Println('прошло полных часов с начала суток:', T div 3600);
Println('прошло полных минут с начала последнего часа:', T mod 3600 div 60);
Println('прошло полных секунд с начала последней минуты:', T mod 3600 mod 60)
end.