Wie berechne ich alle Summen, Mittelwerte von 1 bis "Zahl"

[mkinzler]

Delphi-Quellcode:

      for i := 1 to zahl1 do
       begin
         Summe1 := Summe1 + i;
         inc(anz);
       end;
     end; 
     mittelwert := summe1/anz;