Программирование итерационного цикла

[Pasha19]

Помогите сделать 3.jpg

[newerow1989]

function s(x:real):real;
const n=10;
var st:real;
    i:integer;
begin
   Result:=0;
   st:=1;
   For i:=1 to n do
   begin
      st:=st*x;
      Result:=Result+i*(i+2)*st;
   end;
end;

function y(x:real):real;
begin
   Result:=x*(3-x)/(1-x)/(1-x);
end;

const a=0.1;
      b=0.5;
      dx=0.1;
var x,s1,y1:real;
begin
   x:=a;
   While x<=b do
   begin
      s1:=s(x);
      y1:=y(x);
      Writeln('x = ',x:3:1,'  s = ',s1:5:5,'  y = ',y1:5:5);
      x:=x+dx;
   end;
   Readln;
end.

[FPaul]

Это такая утончённая пытка, недосмотр или "всем пофиг"?