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

cHJvZ3JhbSBpZGVvbmU7CmJlZ2luCgkoKiB5b3VyIGNvZGUgZ29lcyBoZXJlICopCmVuZC4=

UFJPR1JBTSBaaW5zZW5iZXJlY2hudW5nOwoKVkFSIFN0YXJ0a2FwaXRhbCxFaW56YWhsdW5nLEthcGl0YWwsWmluc3NhdHogOiBEb3VibGU7CglNb25hdGUsWmFlaGxlciAgICAgICAgICAgICAgICAgICAgICAgICAgIDogSW50ZWdlcjsKCVdhaGwJCQkJCQkJCQkgOiBDaGFyOwoKQkVHSU4KCVJFUEVBVAoJCVdyaXRlKCdXaWUgaG9jaCBpc3QgZGFzIFN0YXJ0a2FwaXRhbCAoaW4gRXVybyk/ICcpOwoJCVJlYWRMbihTdGFydGthcGl0YWwpOwoJCVdyaXRlKCdXaWUgaG9jaCBpc3QgZGllIG1vbmF0bGljaGUgRWluemFobHVuZz8gJyk7CgkJUmVhZExuKEVpbnphaGx1bmcpOwoJCVdyaXRlKCdXaWUgbGFuZ2Ugd29sbGVuIFNpZSBzcGFyZW4gKGluIEphaHJlbik/ICcpOwoJCVJlYWRMbihNb25hdGUpOwoJCVdyaXRlKCdXaWUgaG9jaCBpc3QgZGVyIFppbnNzYXR6IChpbiBQcm96ZW50KT8gJyk7CgkJUmVhZExuKFppbnNzYXR6KTsKCQlNb25hdGU6PU1vbmF0ZSoxMjsge1VtcmVjaG51bmcgSmFocmUgaW4gTW9uYXRlfQoJCVppbnNzYXR6Oj0xKyhaaW5zc2F0ei8xMDAvMTIpOyB7VW1yZWNobnVuZyBpbiBQcm96ZW50L01vbmF0ZX0KCQlLYXBpdGFsOj1TdGFydGthcGl0YWw7CgkJRk9SIFphZWhsZXI6PTEgVE8gTW9uYXRlIERPIEthcGl0YWw6PShLYXBpdGFsKlppbnNzYXR6KStFaW56YWhsdW5nOwoJCVdyaXRlTG4oJ1NpZSBoYWJlbiBpbnNnZXNhbXQgZWluZ2V6YWhsdDogJyxTdGFydGthcGl0YWwrTW9uYXRlKkVpbnphaGx1bmc6MTA6Mik7CgkJV3JpdGVMbignLi4udW5kIGJla29tbWVuIG1pdCBaaW5zZW46ICcsS2FwaXRhbDoxMDoyKTsKCQlXcml0ZUxuOwoJCVdyaXRlKCdOb2NobWFsIChKL04pJyk7CgkJUmVhZExuKFdhaGwpOwoJVU5USUwgKFdhaGw9J04nKSBPUiAoV2FobD0nbicpOwpFTkQu

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/12); {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.