Запиши верный ответ.
(впиши соответствующую латинскую букву или цифру)
m& m=

Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл For и расчет процентов.

FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.  

1. Короткий вариант

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(10,10,20); a.Println;
  Writeln('Сумма кубов ',a.Select(x->x*x*x).Sum);
  a.Transform(x->x-5); a.Println
end.

Тестовое решение
14 17 12 17 20 11 13 18 19 20
Сумма кубов 46517
9 12 7 12 15 6 8 13 14 15

2. "Школьный вариант"

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
  a:array[1..10] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to 10 do begin
    a[i]:=Random(11)+10;
    Write(a[i],' ');
    s:=s+a[i]*sqr(a[i])
    end;
  Writeln;
  Writeln('Сумма кубов ',s);
  for i:=1 to 10 do begin
    a[i]:=a[i]-5;
    Write(a[i],' ')
    end;
  Writeln
end.