Pmg bautzen/beispiel 3

Wiki-Quelltext dieser Seite.

'''Programmierbeispiel: Schleifen'''



<code id:= " ">

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