program ideone;
begin
	(* your code goes here *)
end.

cHJvZ3JhbSBpZGVvbmU7CmJlZ2luCgkoKiB5b3VyIGNvZGUgZ29lcyBoZXJlICopCmVuZC4=

MS4JUFJPR1JBTSBaaW5zZW5iZXJlY2hudW5nOwoyLgozLglWQVIJU3RhcnRrYXBpdGFsLCBFaW56YWhsdW5nLCBLYXBpdGFsLCBaaW5zc2F0egk6IERvdWJsZTsKNC4JICAgCU1vbmF0LCBaYWVobGVyCQkJCQk6IEludGVnZXI7CjUuCQlXYWhsCQkJCQkJOiBDaGFyOwo2Lgo3LglCRUdJTgo4LgkJUkVQRUFUCjkuCQkJV3JpdGUgKCdXaWUgaG9jaCBpc3QgZGFzIFN0YXJ0a2FwaXRhbCAoIGluIEV1cm8pPycpOwoxMC4JCQlSZWFkTG4gKCBTdGFydGthcGl0YWwpOwoxMS4JCQlXcml0ZSAoICdXaWUgaG9jaCBpc3QgZGllIG1vbmF0bGljaGUgRWluemFobHVuZyA/Jyk7CjEyLgkJCVJlYWRMbiAoIEVpbnphaGx1bmcpOwoxMy4JCQlXcml0ZSAoJyBXaWUgbGFuZ2Ugd29sbGVuIFNpZSBzcGFyZW4gKCBpbiBKYWhyZW4pID8nKTsKMTQuCQkJUmVhZExuICggTW9uYXRlKTsKMTUuCQkJV3JpdGUgKCcgV2llIGhvY2ggaXN0IGRlciBaaW5zc2F0eiAoIGluIFByb3plbnQpID8nKTsKMTYuCQkJUmVhZExuICggWmluc3NhdHopOwoxNy4JCQlNb25hdGU6PSBNb25hdGUqMTI7IHsgVW1yZWNobnVuZyBKYWhyZSBpbiBNb25hdGV9CjE4LgkJCVppbnNzYXR6Oj0gMSsoIFppbnNzYXR6LzEwMC8xMik7IHtVbXJlY2hudW5nIGluIFByb3plbnQvIE1vbmF0ZX0KMTkuCQkJS2FwaXRhbDo9IFN0YXJ0a2FwaXRhbDsKMjAuCQkJRk9SIFphZWhsZXI6PSAxIFRPIE1vbmF0ZSBETyBLYXBpdGFsOj0gKEthcGl0YWwqWmluc3NhdHopKyBFaW56YWhsdW5nOwoyMS4JCQlXcml0ZUxuKCAnIFNpZSBoYWJlbiBpbnNnZXNhbXQgZWluZ2V6YWhsdDogJyxTdGFydGthcGl0YWwrIE1vbmF0ZSpFaW56YWhsdW5nOjEwOjIpOwoyMi4JCQlXcml0ZUxuKCcuLi4gdW5kIGJla29tbWVuIG1pdCBaaW5zZW46JywgS2FwaXRhbDoxMDoyKTsKMjMuCQkJV3JpdGVMbjsKMjQuCQkJV3JpdGUgKCcgTm9jaG1hbCAoSi9OKScpOwoyNS4JCQlSZWFkTG4gKFdhaGwpOwoyNi4JCQlVTlRJTCAoV2FobD0gJ04nKSBPUiAoV2FobD0gJ24nKTsKMjcuCUVORAoyOC4=

1.	PROGRAM Zinsenberechnung;
2.
3.	VAR	Startkapital, Einzahlung, Kapital, Zinssatz	: Double;
4.	   	Monat, Zaehler					: Integer;
5.		Wahl						: Char;
6.
7.	BEGIN
8.		REPEAT
9.			Write ('Wie hoch ist das Startkapital ( in Euro)?');
10.			ReadLn ( Startkapital);
11.			Write ( 'Wie hoch ist die monatliche Einzahlung ?');
12.			ReadLn ( Einzahlung);
13.			Write (' Wie lange wollen Sie sparen ( in Jahren) ?');
14.			ReadLn ( Monate);
15.			Write (' Wie hoch ist der Zinssatz ( in Prozent) ?');
16.			ReadLn ( Zinssatz);
17.			Monate:= Monate*12; { Umrechnung Jahre in Monate}
18.			Zinssatz:= 1+( Zinssatz/100/12); {Umrechnung in Prozent/ Monate}
19.			Kapital:= Startkapital;
20.			FOR Zaehler:= 1 TO Monate DO Kapital:= (Kapital*Zinssatz)+ Einzahlung;
21.			WriteLn( ' Sie haben insgesamt eingezahlt: ',Startkapital+ Monate*Einzahlung:10:2);
22.			WriteLn('... und bekommen mit Zinsen:', Kapital:10:2);
23.			WriteLn;
24.			Write (' Nochmal (J/N)');
25.			ReadLn (Wahl);
26.			UNTIL (Wahl= 'N') OR (Wahl= 'n');
27.	END
28.