1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

(in delphi):
function E(unten,oben:word):real;
  var i : integer;
  begin
  result := 0;
  for i := unten to oben do
    result := result + (3*i+1);
  end;

(in C++):
float E(int unten; int oben)  
  {
  int tmp=0;
  for(int i=unten;i++;i<=oben)
    tmp += (3*i+1);
  return tmp;
  //ich hoffe ich hab mich jetzt nicht vertan, kann C++
  //noch nicht so gut
  }