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

cHJvZ3JhbSBpZGVvbmU7CmJlZ2luCgkoKiB5b3VyIGNvZGUgZ29lcyBoZXJlICopCmVuZC4=

UFJPR1JBTSBaaW5zZW5iZXJlY2hudW5nOwoKVkFSIFN0YXJ0a2FwaXRhbCxFaW56YWhsdW5nLEthcGl0YWwsWmluc3NhdHogOiBEb3VibGU7CglNb25hdGUsIFphZWhsZXIJCQkJCQkJOiBJbnRlZ2VyOwoJV2FobAkJCQkJCQkJCTpDaGFyOwoJCkJlZ2luCglSRVBFQVQKCQlXcml0ZSgnV2llIGhvY2ggaXN0IGRhcyBTdGFydGthcGl0YWwoaW4gRXVybyk/JykKCQlSZWFkTG4oU3RhcnRrYXBpdGFsKTsKCQlXcml0ZSgnV2llIGhvY2ggaXN0IGRpZSBtb25hdGxpY2hlIEVpbnphaGx1bmc/Jyk7CgkJUmVhZExuKEVpbnphaGx1bmcpOwoJCVdyaXRlKCdXaWUgbGFuZ2Ugd29sbGVuIFNpZSBzcGFyZW4gKGluIEphaHJlbiknKQoJCVJlYWRMbihNb25hdGUpOwoJCVdyaXRlKCdXaWUgaG9jaCBpc3QgZGVyIFppbnNzYXR6IChpbiBQcm96ZW50KT8nKQoJCVJlYWRMbihaaW5zc2F0eikKCQlNb25hdGU6PU1vbmF0ZSoxMjt7VW1yZWNobnVuZyBKYWhyZSBpbiBNb25hdGV9CgkJWmluc3NhdHo6PTErKFppbnNzYXR6LzEwMC8xMCk7e1VtcmVjaG51bmcgaW4gUHJvemVudC9Nb25hdGV9CgkJS2FwaXRhbDo9U3RhcnRrYXBpdGFsOwoJCUZPUiBaYWVobGVyOj0xIFRPIE1vbmF0ZSBETyBLYXBpdGFsOj0oS2FwaXRhbCpaaW5zc2F0eikrRWluemFobHVuZzsKCQlXcml0ZUxuKCdTaWUgaGFiZW4gaW5zZ2VzYW10IGVpbmdlemFobHQ6ICcsU3RhcnRrYXBpdGFsK01vbmF0ZSpFaW56YWhsdW5nOjEwOjIpOwoJCVdyaXRlTG4oJy4uLnVuZCBiZWtvbW1lbiBtaXQgWmluc2VuOicsS2FwaXRhbDoxMDoyKTsKCQlXcml0ZUxuOwoJCVdyaXRlKCdOb2NobWFsIChKL04pJyk7CgkJUmVhZExuKFdhaGwpOwoJVU5USUwgKFdhaGw9J04nKSBPUiAoV2FobD0nbicpOwpFTkQuCgoJ

PROGRAM Zinsenberechnung;

VAR Startkapital,Einzahlung,Kapital,Zinssatz : Double;
	Monate, Zaehler							: Integer;
	Wahl									:Char;
	
Begin
	REPEAT
		Write('Wie hoch ist das Startkapital(in Euro)?')
		ReadLn(Startkapital);
		Write('Wie hoch ist die monatliche Einzahlung?');
		ReadLn(Einzahlung);
		Write('Wie lange wollen Sie sparen (in Jahren)')
		ReadLn(Monate);
		Write('Wie hoch ist der Zinssatz (in Prozent)?')
		ReadLn(Zinssatz)
		Monate:=Monate*12;{Umrechnung Jahre in Monate}
		Zinssatz:=1+(Zinssatz/100/10);{Umrechnung in Prozent/Monate}
		Kapital:=Startkapital;
		FOR Zaehler:=1 TO Monate DO Kapital:=(Kapital*Zinssatz)+Einzahlung;
		WriteLn('Sie haben insgesamt eingezahlt: ',Startkapital+Monate*Einzahlung:10:2);
		WriteLn('...und bekommen mit Zinsen:',Kapital:10:2);
		WriteLn;
		Write('Nochmal (J/N)');
		ReadLn(Wahl);
	UNTIL (Wahl='N') OR (Wahl='n');
END.