Ввести число обозначающее количество секунд. вывести то же самое время в часах, минутах, секундах. пример: число секунд: 8325 2 ч. 18 мин. 45 с

Program program1;
var a,b:integer;
begin
writeln('Введите кол-во секунд: ');
read(a);
b:=a div 3600;
write (a, ' Секунд, это ', b, ' часов.')
end.