помогите с информатикой,срочно...:Написать процедуру,которая определяет по времени в...

Question

помогите с информатикой,срочно...:Написать процедуру,которая определяет по времени в секундах содержащиеся в нём количество часов, минут, секунд...
пожалуйста..

Answer 1

var t,a,b,c:integer;
procedure irati(T:integer; var H, M, S:integer);
begin
H:=T div 3600;
M:=(T mod 3600) div 60;
S:=(T mod 3600) mod 60;
end;
begin
read(t);
irati(t,a,b,c);
Writeln('Chasov ',a,' Minut ',b,' Secund ',c);
end.