процедуры

[malenkaya]

Описать процедуру, которая увеличивает на T секунд время, заданное в часах H, минутах M и секундах S (H, M и S — входные и выходные параметры, T — входной параметр; все параметры — целые положительные). Дано время (в часах H, минутах M, секундах S) и целое число T. Используя процедуру, увеличить данное время на T секунд и вывести новые значения H, M, S.

[Pein95]

а наработки есть?)

[Cody M.]

procedure TimeManage(var H: integer; var M: integer; var S: integer; T: integer);
var
  time: integer;
begin
  time := S + M * 60 + H * 3600 + T;
  H := time div 3600;
  time := time mod 3600;
  M := time div 60;
  time := time mod 60;
  S := time;  
end;

var
  H, M, S, T: integer;

begin
  write('Введите H: '); read(H);
  write('Введите M: '); read(M);
  write('Введите S: '); read(S);
  write('Введите T: '); read(T);
  writeln(H, ':', M, ':', S);
  TimeManage(H, M, S, T);
  writeln(H, ':', M, ':', S)
end.