beispiel 3

Programmierbeispiel: Schleifen

function summe :integer 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; s:=inttostr(showmessage('Summe:')); end;