Câu trả lời:
uses crt;
var a:array[1..3,1..3] of integer;
kq:array[1..3] of integer;
inp,out:text;
i:byte;
begin
clrscr;
assign(inp,'Time.inp');
reset(inp);
assign(out,'Time.out');
rewrite(out);
for i:=1 to 3 do
begin
read(inp,a[i,1]);
read(inp,a[i,2]);
readln(inp,a[i,3]);
end;
kq[3]:=(a[1,3]+a[2,3]+a[3,3]) mod 60; //tinh so giay
kq[2]:=((a[1,2]+a[2,2]+a[3,2]) mod 60)+((a[1,3]+a[2,3]+a[3,3]) div 60);
//tinh so phut
kq[1]:=((a[1,2]+a[2,2]+a[3,2]) div 60)+a[3,1]+a[2,1]+a[1,1];
//tinh so gio
writeln(out,kq[1],' ',kq[2],' ',kq[3]);
close(inp);
close(out);
end.