Pmg bautzen/beispiel 3

Wiki-Quelltext dieser Seite.

'''Programmierbeispiel: Schleifen'''



function summe :integer
var a, e, s :integer;
begin
a:=strtoint(inputdialog('Anfangszahl:'));
b:=strtoint(inputdialog('Endzahl:'));



end;

s:=inttostr(showmessage('Summe:'));