(х-1)(х-3)(х-7)х..х(х-63)/(х-2)(х-4)(х-8)х...х(х-64) составить программку в турбо паскале

program Gen;

var
  numerator, denominator : real;
  x, i: integer;
begin
  write(Введите x: );
  readln(x);
  i:= 1;
  numerator:= 1;
  denominator:= 1;
  while (i lt;= 63) do
  begin
    numerator:= numerator * (x - i);
    denominator:= denominator * (x - i - 1);
    i:= i + 2;
  end;
  if (denominator=0) then writeln(Знаменатель равен нулю, выражение нельзя вычислить) else
  writeln(Итог вычисления = , numerator / denominator);
end.

Стоит направить внимание, что при значениях x от 1 до 64 выражение или не может быть вычислено (четные значения x), т.к. знаменатель будет равен нулю, или равно нулю (нечетные значения x), т.к. числитель будет равен нулю.