1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

var umsatz, steigsatz: double;
 ajahr, endjahr: integer;

procedure TForm1.ButtonRechnenClick(Sender: TObject);
begin
ajahr:=strtoint(editajahr.text);
endjahr:=strtoint(editendjahr.text);
umsatz:=strtofloat(editumsatz_ajahr.text);
steigsatz:=strtofloat(editumsatzsteig.text);
if (steigsatz<=0) or (steigsatz>25) then
showmessage ('Umsatzsteigerung: Eingabe prüfen!')
else begin
memoausgabe.lines.add('Jahr'+'Umsatz');
memoausgabe.lines.add(' ');

repeat
ajahr:=ajahr+1;
umsatz:=umsatz*(1+steigsatz/100);
memoausgabe.lines.add(inttostr(ajahr)+' '+
formatfloat('00000000,0.00',umsatz)+'€');
memoausgabe.lines.add(' ');
until ajahr=endjahr;

end;
end;