Pmg bautzen/beispiel 3

Wiki-Quelltext dieser Seite.

'''Programmierbeispiel: Schleifen'''



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