Дано действительное число Х, вычислить значение выражения.

Program Xt;
Var x,i,p:integer;
  s:real;
Begin
 writeln('Vvedite x');
  readln(x);
  s:=1;
  i:=1;
  p:=1;
For x:=i to 63  do
begin
s:=s*(x-i)/(x-p);
i:=i+2;
p:=p+2;
end;
writeln('s=', s:5:2);
readln;
end.

Program EX;
 
Var 
   x,p:  integer;
   p1,p2,res:  real;
 
Begin
   write('Vvedite x: ');
   readln(x);
   p1 := 1;
   p2 := 1;
 
   For p:=1 To 64  Do
      Begin
         If (p Mod 2<>0) Then p1 := p1*(x-p)
         Else p2 := p2*(x-p);
      End;
 
   res := p1/p2;
   writeln('res = ', res:5:2);
   readln;
End.

Program x3;
Var x,i,p:integer;
  s:real;
Begin
 writeln('Vvedite x');
  readln(x);
  s:=1;
  i:=1;
  p:=1;
While I<=63 do
begin
s:=s*(x-i)/(x-p);
i:=i+2;
p:=p+2;
end;
writeln('s=', s:5:2);
readln;
end.

Program x3;
uses crt;
Var i,p:integer;
    x,s:real;
Begin
clrscr;
writeln('Vvedite dejstvitelnoe x=');
readln(x);
s:=1;
p:=1;
for i:=1 to 6 do
 begin
  p:=p*2;
  s:=s*(x-p-1)/(x-p);
 end;
writeln('s=', s:5:2);
readln;
end.