Дано действительное число х. Вычислить:

program c1;
uses crt;
var x,p1,p2: real;
    i: integer;
begin
  clrscr;
  write('Vvedite X: ');
  readln(x);
  i:=1;
  p1:=1;
  while i <= 63 do begin
    p1:=p1*(x-i);
    i:=2*i+1;
  end;
  i:=2;
  p2:=1;
  while i <= 64 do begin
    p1:=p1*(x-i);
    i:=2*i;
  end;
  writeln('Result = ',(p1/p2):8:3);
  readln;
end.

Uses
 CRT;
Var
 i:integer;
 pr,pr2,x:real;
begin
repeat
 write('Ââåäèòå x: ');
 readln(x);
until frac(x)<>0;
pr:=1;
pr2:=1;
for i:=1 to 6 do
begin
 pr:=pr*(x-(exp(ln(2)*i)));
 pr2:=pr2*(x-(exp(ln(2)*i)-1));
end;
write(pr2/pr);
end.

Uses
 CRT;
Var
 i:integer;
 pr,pr2,x:real;
begin
 write('Ââåäèòå x: ');
 readln(x);
pr:=1;
pr2:=1;
for i:=1 to 6 do
begin
 pr:=pr*(x-(exp(ln(2)*i)));
 pr2:=pr2*(x-(exp(ln(2)*i)-1));
end;
if pr=0 then
 writeln('Çíàìåíàòåëü ðàâåí 0')
else
write(pr2/pr);
end.