(*$B- Aufgabe 2.9 *)
 PROGRAM reihe;
 VAR i: integer; s : real;
 BEGIN
   s :=0 ;
   FOR i:= 1 TO 10000 DO s := s+1/i/i ;
   writeln('1. Reihe =', s, ' sollte gleich ', sqr(4*arctan(1))/6, ' sein');
   s := 0;
   FOR i:=1 TO 10000 DO s := s + 1/i/i/i ;
   writeln('2. Reihe = ', s)
 END.