Pmg bautzen/beispiel 3

Wiki-Quelltext dieser Seite.

'''Programmierbeispiel: Schleifen'''


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