function gausssumme(n: integer): double; var i : integer; summe: double; begin summe:=0; for i:=1 to n do summe:=summe+i; result:=summe; end;
Quelltext überprüfen:
jetzt prüfen
writeln(gausssumme(100));
ausführen