var t1, t2, m1, m2, s1, s2, t, m, s: integer; begin Writeln ('Esimene (varasem) kellaaeg'); readln(t1, m1, s1); writeln('Teine kellaaeg '); readln(t2, m2, s2); t:=t2-t1; m:=m2-m1; s:=s2-s1; if s<0 then begin s:=s+60; m:=m-1; end; if m<0 then begin; m:=m+60; t:=t-1; end; writeln(t,' ',m,' ',s); end.