CONST
      Zins1 = 4.50;
      Zins2 = 4.75;
      Zins3 = 5.00;
      Zins4 = 5.25;
      Zins5 = 5.50;
      Zins6 = 5.75;
      Zins7 = 5.75;

VAR
    Zinsen,Geld : Single;

BEGIN
  WriteLn('Zinsberechnung');
  Write('Wieviel wollen Sie anlegen ? '); ReadLn(Geld);
  Zinsen:=Geld*(Zins1/100);
  Zinsen:=Zinsen+Geld*(Zins2/100);
  Zinsen:=Zinsen+Geld*(Zins3/100);
  Zinsen:=Zinsen+Geld*(Zins4/100);
  Zinsen:=Zinsen+Geld*(Zins5/100);
  Zinsen:=Zinsen+Geld*(Zins6/100);
  Zinsen:=Zinsen+Geld*(Zins7/100);
  WriteLn('Zinsen : ',Zinsen:9:2);
END.