Помогите написать программу в паскале с помощью вложенных циклов

// PascalABC.NET var   a,x,px,y:real;   n:integer; begin   x:=0.1;   while x<=0.9 do begin     y:=0;     px:=1;     for n:=0 to 20 do begin       if x<=0.5 then a:=2*n       else a:=n/2;       y:=y+a*px;       px:=px*x       end;     y:=y*(sin(x)+2)/(3+cos(x));     Writeln(x:3:1,y:16:9);     x:=x+0.1     end end. Результат 0.1     0.129781438 0.2     0.345262649 0.3     0.710645245 0.4     1.354178828 0.5     2.557675550 0.6     1.256653741 0.7     2.716085461 0.8     6.927006600 0.9    21.970170476