Для сохранения 1 мин видео на экране монитора с разрешением 800 х 600, палитрой из 64 цветов и частотой 24 кадра в секунду требуется: 506 250 Мбайт 506 250 Кбайт 3955 Мбайт 87 Мбайт !

var

  x: real;  

  cost: real;  //Стоимость капитала

  i: integer;

 

begin

  cost:= 20;  //Начальная стоимость равна 20 

  writeln('Введите ежегодный прирост в процентах');

  readln(x);  //Вводим ежегодный прирост в процентах

  for i:= 1626 to 2012 do   {Каждый год стоимость капитала увеличивается на стоимость капитала * х / 100}

    cost:= cost + cost * (x / 100);

  writeln('Стоимость капитала составляла бы в этом году:  ', cost : 0 : 5, ' $');  {Выводим стоимость капитала с округлением до 5 знаков после запятой}

end. 

Отметь решение как лучшее)