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

cHJvZ3JhbSBpZGVvbmU7CmJlZ2luCgkoKiB5b3VyIGNvZGUgZ29lcyBoZXJlICopCmVuZC4=

cHJvZ3JhbSB6aW5zZW5iZXJlY2hudW5nOwoKVkFSIFN0YXJ0a2FwaXRhbCxFaW56YWhsdW5nLEthcGl0YWwsWmluc3NhdHogOiBEb3VibGU7CglNb25hdGUsWmFlaGxlcgkJCQkJCQkgOiBJbnRlZ2VyOwoJV2FobAkJCQkJCQkJCSA6IENoYXI7CgkKQmVnaW4KCVJlcGVhdAoJCVdyaXRlKCdXaWUgaG9jaCBpc3QgZGFzIFN0YXJ0a2FwaXRhbCAoaW4gRXVybyk/Jyk7CgkJUmVhZExuKFN0YXJ0a2FwaXRhbCk7CgkJV3JpdGUoJ1dpZSBob2NoIGlzdCBkaWUgbW9uYXRsaWNoZSBFaW56YWhsdW5nPycpOwoJCVJlYWRMbihFaW56YWhsdW5nKTsKCQlXcml0ZSgnV2llIGxhbmdlIHdvbGxlbiBTaWUgc3BhcmVuIChpbiBKYWhyZW4pPycpOwoJCVJlYWRMbihNb25hdGUpOwoJCVdyaXRlKCdXaWUgaG9jaCBpc3QgZGVyIFppbnNzYXR6IChpbiBQcm96ZW50KT8nKTsKCQlSZWFkTG4oWmluc3NhdHopOwoJCU1vbmF0ZTo9TW9uYXRlKjEyO3tVbXJlY2hudW5nIEphaHJlIGluIE1vbmF0ZX0KCQlaaW5zc2F0ejo9MSsoWmluc3NhdHovMTAwLzEyKTsge1VtcmVjaG51bmcgaW4gUHJvemVudC9Nb25hdGV9CgkJS2FwaXRhbDo9U3RhcnRrYXBpdGFsOwoJCUZvciBaYWVobGVyOj0xIFRvIE1vbmF0ZSBEbyBLYXBpdGFsOj0oS2FwaXRhbCpaaW5zc2F0eikrRWluemFobHVuZzsKCQlXcml0ZUxuKCdTaWUgaGFiZW4gaW5zZ2VzYW10IGVpbmdlemFobHQ6ICcsU3RhcnRrYXBpdGFsK01vbmF0ZSpFaW56YWhsdW5nOjEwOjIpOwoJCVdyaXRlTG4oJy4uLnVuZCBiZWtvbW1lbiBtaXQgWmluc2VuOiAnLEthcGl0YWw6MTA6Mik7CgkJV3JpdGVMbjsKCQlXcml0ZSgnTm9jaG1hbCAoSi9OKScpOwoJCVJlYWRMbihXYWhsKTsKCVVudGlsKFdhaGw9J04nKSBPUiAoV2FobD0nbicpOwpFTkQJ

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