program p21_129;
uses crt;
type timp=record
       s,m,o,z,p:integer;
     end;

function ts(t:timp):longint;
begin
 with t do ts:=s+m*60+o*3600+z*86400+p*604800;
end;

procedure st(l:longint;var t:timp);
begin
 with t do begin
  s:=l mod 60;   l:=l div 60;
  m:=l mod 60;   l:=l div 60;
  o:=l mod 24;   l:=l div 24;
  z:=l mod 7;    l:=l div 7;
  p:=l;
 end;
end;

function tostr(b:integer):string;
var s:string;
begin
 str(b,s);
 if length(S)=1 THEN s:='0'+s;
 tostr:=s;
end;

procedure timpIn(var t:timp);
begin
 with t do begin
  write('Sec: ');readln(s);
  write('Min: ');readln(m);
  write('Ore: ');readln(o);
  write('Zil: ');readln(z);
  write('Sap: ');readln(p);
 end;
 st(ts(t),t);
end;

Function TimpToStr(t:timp):string;
var SZ:string;
begin
 Str(T.Z,SZ);
 with t do tIMPtOsTR:=tOsTR(p)+'.'+sz+', '+tostr(o)+':'+tostr(m)+':'+tostr(s);
end;

function SecToStr(l:longint):string;
VAR   t:timp;
begin
 st(l,t);
 SecToStr:=TimpToStr(t);
end;

procedure timpOut(t:timp);
begin
 Write(SecToStr(TS(t)));
end;

var t1,t2:timp;n:INTEGER;
begin
clrscr;
writeln('Introdu timpul:');
writeln('T1'); timpIn(t1);
writeln('T2'); timpIn(t2);
writeln;
write('n=');Readln(n);
clrscr;
writeln('T1: '+TimpToStr(t1));
writeln('T2: '+TimpToStr(t2));
writeln('n=',n);
writeln;
writeln('a) T1 + T2:   ',SecToStr(ts(t1)+ts(t2)));
writeln('b) T1 - T2:   ',SecToStr(ts(t1)-ts(t2)));
writeln('c)  n * T1:   ',SecToStr(n*ts(t1)));
writeln('d) T1 mod T2: ',SecToStr(ts(t1)mod ts(t2)));
WriteLn('e)');
WriteLn('   T1>T2: ',TS(t1)>TS(t2));
WriteLn('   T1<T2: ',TS(t1)<TS(t2));
WriteLn('   T1=T2: ',TS(t1)=TS(t2));
readkey
end.