Добавить дополнительный цикл в имеющуюся программу - Free Pascal

Формулировка задачи:

Здравствуйте, есть код программы нужно добавить дополнительный цикл.

var y,x,a,y1,p:real;
n,i,k:integer;
begin
x:=0.1;
for i:=1 to 9 do
begin
y:=(sin(x)+2)/(3+cos(x));
y1:=0;
for n:=0 to 20 do
begin
if x<=0.5 then a:=2*n;
if x>0.5 then a:=n/2;
y1:=y1+a*exp(n*Ln(x));
end;
y:=y+y1;
writeln('y=',y:2:2,'   x=',x:2:1);
x:=x+0.1;
end;
end.

Задание до и после

Решение задачи: «Добавить дополнительный цикл в имеющуюся программу»

Листинг программы

var
  y, x, a, y1, p: real;
  n, i, k: integer;
 
begin
  x := 0.1;
  for i := 1 to 9 do
  begin
    y := (sin(x) + 2) / (3 + cos(x));
    y1 := 0;
    for n := 0 to 20 do
    begin
      if x <= 0.5 then a := 2 * n;
      if x > 0.5 then a := n / 2;
      y1 := y1 + a * exp(n * Ln(x));
    end;
    y := y * y1; // у тебя здесь был "+" почему-то, хотя по формуле никакого плюса нет, там умножение
    writeln('y=', y:2:2, '   x=', x:2:1);
    x := x + 0.1;
  end;
end.

Объяснение кода листинга программы

Объявлены переменные: y, x, a, y1, p (тип real), n, i, k (тип integer).
Задано значение переменной x равное 0.1.
Запущен цикл for для переменной i от 1 до 9.
Внутри цикла определено значение переменной y по формуле (sin(x) + 2) / (3 + cos(x)).
Внутри цикла определено значение переменной y1 равное 0.
Запущен цикл for для переменной n от 0 до 20.
Внутри цикла определено значение переменной a по формуле: если x <= 0.5, то a := 2 * n; если x > 0.5, то a := n / 2.
Внутри цикла значение переменной y1 увеличивается на a exp(n Ln(x)).
После завершения внутреннего цикла значение переменной y увеличивается на y1.
С помощью функции writeln выводится значение переменных y и x.
Значение переменной x увеличивается на 0.1.
Цикл for для переменной i повторяется до тех пор, пока значение переменной i меньше или равно 9.
Программа заканчивается после завершения цикла for для переменной i.