program ManhattanIsland;
varinitialCapital, annualGrowthRate, currentYear, yearsPassed: integer;
begininitialCapital := 20;annualGrowthRate := {введите процентный прирост};currentYear := 2021;yearsPassed := currentYear - 1626;
for i := 1 to yearsPassed dobegininitialCapital := initialCapital + initialCapital * annualGrowthRate / 100;end;
writeln('Стоимость капитала в ', currentYear, ' году: $', initialCapital:0:2);end.
program ManhattanIsland;
var
initialCapital, annualGrowthRate, currentYear, yearsPassed: integer;
begin
initialCapital := 20;
annualGrowthRate := {введите процентный прирост};
currentYear := 2021;
yearsPassed := currentYear - 1626;
for i := 1 to yearsPassed do
begin
initialCapital := initialCapital + initialCapital * annualGrowthRate / 100;
end;
writeln('Стоимость капитала в ', currentYear, ' году: $', initialCapital:0:2);
end.