Pmg bautzen/beispiel 3

Wiki-Quelltext dieser Seite.

'''Programmierbeispiel: Schleifen'''



<code id:= " ">

procedure summe;
var a,e,s,i : integer;
begin
a:=strtoint(inputdialog(' Anfangszahl:');
b:=strtoint(inputdialog(' Endzahl:');
s:=0;
for i:= a to e do s:=s+1;
showmessage(inttostr(s))
end;

</code>