Pmg bautzen/beispiel 3

Wiki-Quelltext dieser Seite.

'''Programmierbeispiel: Schleifen'''


<code>
function addition(a,e:integer):integer;
var i : integer;
begin
a:=1; e:=10;
for i:= a to e do
result:=result+i;
end;
</code>