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

Var t:integer;

begin
write(Введите время в секундах, прошедшее с начала раб.дня); readln(t);

if (tgt;28800) and (tlt;32400) then write(Рабочий день закончен около , round((t-28800)/60), минут назад);
if (tgt;32400) then write(Рабочий день закончен около , round((t-28800)/3600), часов назад);
if (tlt;28800) then write(До конца рабочего дня осталось , round((28800-t)/3600),ч.);
end.