Вычислить значение выражения

program ert;
var s1,s2,s,m,x,z:real;
i,n:integer;
begin
Writeln('vvod x');
readln(x);
s1:=1;
for i := 2 to 128 do
i:=i*2;
s1:=s1*(x-i);
 
for i := 1 to 127 do
i:=(i*2)+1;
s2:=(x-i);
m:=s1/s2;
writeln(m);
{"цикл со счетчиком" for}
{//////}
begin
i:=1;
s2:=1;
while i<127 do
i:=(i*2)+1;
s2:=s2*(x-i);
begin
i:=1;
while i<128 do
i:=i*2;
s1:=(x-i);
s:=s1/s2;
writeln('цикл while=',s);
writeln('цикл со счетчиком for=',m);
 
begin
i:=1;
repeat
s1:=(x-i);
i:=i*2;
until i=128;
n:=1;
repeat
s2:=(x-n);
n:=(n*2)+1;
until n=127;
z:=s1/s2;
      writeln ('цикл с repeat=',z);
  readln;
  readln;
  readln;
  end;
  end;
  end;
  end.

var s1,s2,s,m,x,z:real;
i,n,j:integer;
begin
Writeln('vvod x');
readln(x);
s1:=1;
s2:=1;
i:=2;
j:=1;
while i <= 128 do
begin
s1:=s1*(x-i);
i:=i*2;
end;
while j <= 63 do
begin
j:=j*2+1;
s2:=s2*(x-j);
end;
m:=s1/s2;
writeln(m);
end.