function summe (n:integer): double; var i : integer; summe: double; begin summe := 0; for i:= 1 to n do begin summe := summe+i; result := summe; end;
ausführen
2. Beispiel
function potenzieren (a: integer): double; var a, e: integer; begin potenzieren:=0; for i:= 1 to e do potenzieren:=a*e; result:= potenzieren; end;