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

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