Пользователь работал с каталогом 15. сначала он поднялся на один уровень вверх, затем ещё раз поднялся на один уровень вверх, потом спустился на один уровень вниз и ещё раз спустился на один уровень вниз. в результате он оказался в каталоге

В результате он вернулся в тот же каталог с которым работал, т.е. он оказался в каталоге 15

Function P(A:integer):boolean;
Var d,K:integer;
Begin
P:=true;
if A < 2 then P:=false
else
   if A > 3 then
      if A mod 2 = 0 then P:=false
      else
         Begin
         K:=Trunc(Sqrt(A));
         d:=3;
         While d <= K do
            Begin
            if A mod d = 0 then P:=false;
            d:=d+2
            End;
         End;
End;
Var
   A,n:integer;
   S:real;
Begin
S:=0;
Write('n = ');ReadLn(n);
Write('Введите n чисел: ');
For n:= 1 to n do
    Begin
    Read(A);
    if P(A) then S:=S+A;
    End;
Write('S = ',S)
End.

1. Переменная цикла (n) будет принимать значения от a до a+10 с шагом 2 (как и указано в описании цикла).

То есть, это будут значения: a,  a+2,  a+4,  a+6,  a+8,  a+10.

2. Увеличение величины на 1% равносильно умножению на 1,01

(ведь N + N*1% = N + N*1/100 = N + 0,01N = 1,01N).

Всего месяцев,  значит вклад шестьдесят раз был умножен на 1,01.

Такое многократное умножение на одно и то же число можно заменить умножением на соответствующую степень этого числа.

То есть, размер вклада через 5 лет будет равен:

N * 1,01⁶⁰ ≈ 1,8167N