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

Var
A:integer;
Begin
WriteLn('Введите кол-во секунд');
ReadLn(A);
WriteLn(A div 3600,' ч ',A mod 60,' мин ',A mod 60,' сек')
End.