Дано натуральное число т - длительность времени в секундах. вывести данное значение длительности в часах (hh), минутах (mm) и секундах (ss) в следующей форме: hh ч mm мин ss с. составить программу содержащую операторы ввода, вывода, присваивания.

Program mnogohodovochka;
var
a,chas,sek,min:integer;
begin
writeln('vvedite chislo');
readln(a);
chas:=a div 3600;
min:=a mod 3600 div 60;
sek:=a mod 3600 mod 60;
writeln(chas, 'ч', min, 'мин', sek, 'с');
end.