(х-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 <= 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), т.к. числитель будет равен нулю.