Рост вклада в банке с процентами, Что не так в коде? Всё время получается число 426 Опции

[Drughi]

С использованием оператора цикла с параметром For

В 1626 году индейцы продали остров Манхэттэн за K долларов. Если бы эти деньги были помещены в банк на текущий счёт и ежегодный прирост составлял p%, какова бы была стоимость капитала в 2011 году?

Проверять на числах: p:=6.5% K:=20

Мой код (что то тут не так)

var
i:integer;

p,k,z,s: real;
begin
writeln('Введите количество процентов');
read(p);
writeln('Введите сумму покупки острова');
read(k);
for i:=1 to 385 do
s:=k*(1+(p/100));
z:=s*k;
write(z);
end.

Сообщение отредактировано: Lapp - 9.06.2011 2:04