Пользователь вводит с клавиатуры время в секундах, прошедшее с начала рабочего дня. Посчитать, сколько целых часов ему осталось сидеть на работе, если рабочий день – 8 часов.

var t:integer; begin write('Введите время в секундах, прошедшее с начала раб.дня'); readln(t); if (t>28800) and (t<32400) then write('Рабочий день закончен около ', round((t-28800)/60),' минут назад'); if (t>32400) then write('Рабочий день закончен около ', round((t-28800)/3600),' часов назад'); if (t<28800) then write('До конца рабочего дня осталось ', round((28800-t)/3600),'ч.); end.