программа правильно составлена?

[Aidar19]

Задание:

program num_3;
uses crt;
var s,k,z,n,x,b,m,d: real;
i: integer;
begin
clrscr;
write('x');
readln(x);
s:=1;
k:=1;
b:=0;
m:=-1;
z:=(3+b)*x;
for i:=1 to 10 do
begin
d:=z;
n:=n+2*i+1*k;
S:=S*(d/n);
z:=(d+2)*x;
b:=2;
k:=-1;
end;
writeln('s', s:5);
readkey;
end.