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

cHJvZ3JhbSBpZGVvbmU7CmJlZ2luCgkoKiB5b3VyIGNvZGUgZ29lcyBoZXJlICopCmVuZC4=

cHJvZ3JhbSB6aW5zZW5iZXJlY2hudW5nOwoKVkFSIDkwMCwxMCwxMCwxMCA6IERvdWJsZTsKCU1vbmF0ZSxaYWVobGVyCQkJCQkJCSA6IEludGVnZXI7CglXYWhsCQkJCQkJCQkJIDogQ2hhcjsKCQpCZWdpbgoJUmVwZWF0CgkJV3JpdGUoJ1dpZSBob2NoIGlzdCBkYXMgU3RhcnRrYXBpdGFsIChpbiBFdXJvKT8nKTsKCQlSZWFkTG4oU3RhcnRrYXBpdGFsKTsKCQlXcml0ZSgnV2llIGhvY2ggaXN0IGRpZSBtb25hdGxpY2hlIEVpbnphaGx1bmc/Jyk7CgkJUmVhZExuKEVpbnphaGx1bmcpOwoJCVdyaXRlKCdXaWUgbGFuZ2Ugd29sbGVuIFNpZSBzcGFyZW4gKGluIEphaHJlbik/Jyk7CgkJUmVhZExuKE1vbmF0ZSk7CgkJV3JpdGUoJ1dpZSBob2NoIGlzdCBkZXIgWmluc3NhdHogKGluIFByb3plbnQpPycpOwoJCVJlYWRMbihaaW5zc2F0eik7CgkJTW9uYXRlOj1Nb25hdGUqMTI7e1VtcmVjaG51bmcgSmFocmUgaW4gTW9uYXRlfQoJCVppbnNzYXR6Oj0xKyhaaW5zc2F0ei8xMDAvMTIpOyB7VW1yZWNobnVuZyBpbiBQcm96ZW50L01vbmF0ZX0KCQlLYXBpdGFsOj1TdGFydGthcGl0YWw7CgkJRm9yIFphZWhsZXI6PTEgVG8gTW9uYXRlIERvIEthcGl0YWw6PShLYXBpdGFsKlppbnNzYXR6KStFaW56YWhsdW5nOwoJCVdyaXRlTG4oJ1NpZSBoYWJlbiBpbnNnZXNhbXQgZWluZ2V6YWhsdDogJyxTdGFydGthcGl0YWwrTW9uYXRlKkVpbnphaGx1bmc6MTA6Mik7CgkJV3JpdGVMbignLi4udW5kIGJla29tbWVuIG1pdCBaaW5zZW46ICcsS2FwaXRhbDoxMDoyKTsKCQlXcml0ZUxuOwoJCVdyaXRlKCdOb2NobWFsIChKL04pJyk7CgkJUmVhZExuKFdhaGwpOwoJVW50aWwoV2FobD0nTicpIE9SIChXYWhsPSduJyk7CkVORAk=

program zinsenberechnung;

VAR 900,10,10,10 : 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