Дано натуральное число т – длительность времени в секундах. вывести данное значение длительности в часах (hh), минутах (mm) и секундах (ss) в следующем формате hh ч mm мин ss с. например, при вводе 3672 программа должна вывести «1 ч 1 мин 12 с»напишите тексты программ для

Var n,hh,mm,ss:integer;
begin
read(n);
hh:=n div 3600;
mm:=(n-hh*3600) div 60;
ss:=n - hh*3600 - mm * 60;
if n>3600 then write(hh,' ч ',mm,' мин ',ss,' с')
else write(mm,' мин ',ss,' с')
end.