Program rechnen;
{$N+}
{$E+}
uses crt, dos;


var a, b, c, d, e, f : single;
    i, j : longint;
    g : integer;
    ha, ma, sa, hunda : Word;
    he, me, se, hunde : Word;
    m, s : real;
    hund : integer;


begin
   clrscr;
   for g:=1 to 5 do
    begin
      a:=0; b:=0; c:=0; d:=0; e:=0; f:=0;
      m:=0; hund:=0;
      GetTime(ha,ma,sa,hunda);
      writeln(ha:2,':',ma:2,':',sa:2,',',hunda:2);
      b:=2.566432;
      for j:=1 to 2000 do
      for i:=1 to 50000 do {2.000.000}
         begin
            a:=b+a;
            c:=c-a;
            d:=d*c;
            e:=d/b;
            f:=a+b+c+d+e+f;
         end;
      GetTime(he,me,se,hunde);
      writeln (f);
      writeln(he:2,':',me:2,':',se:2,',',hunde:2);
      ha:=ha*3600;
      ma:=ma*60;
      sa:=sa+ma+ha;
      he:=he*3600;
      me:=me*60;
      se:=se+me+he;
      s:=se-sa;
      m:=int(s / 60);
      s:=s-m*60;
      hund:=hunde-hunda;
      if hund<0 then hund:=hund * -1;
      writeln(m:2:0,' Minuten und ',s:2:0,',',hund,' Sekunden');
      if g < 5 then writeln;
    end;
   readln;
end.