Решите в pascal! ! какую начальную сумму надо положить в банк, чтобы через 50 лет на счёту было 1.000.000 $, если процентная ставка 5 % в год.

 var k,p,d:real;i:integer;begin
 write('Write kol:');readln(k);
 write('Write percent:');readln(p);
 for i:=1 to 50 do
  d:=k/(1+(p/100)*i);
 writeln(d:0:2);
end.

Код может быть неточен так как нет данных для проверки.