Сколько существует различных наборов значений логических переменных x1, x2, ... x9, y1, y2, ... y9, которые удовлетворяют всем перечисленным ниже условиям?

(x1 ≠ y1) ≡ (¬x2 ≡ ¬y2)

(x2 ≠ y2) ≡ (¬x3 ≡ ¬y3)

...

(x8 ≠ y8) ≡ (¬x9 ≡ ¬y9)

Program proga_1;
var  x: real;  n: integer;
function func(n: integer; x: real): real;var  i: integer;  i1, i2, i3: real; 
 
//функция вычисления степени
 function power(n: integer; x: real): real; 
var  i: integer; res: real;
begin res := x; for i := 1 to n - 1 do res := res * x;
power := res;
 end;
 //фукция вычисления факториала 
 function factorial(x: integer): integer;
 var    i, res: integer;
begin for i := 1 to x do inc(res, i);
 factorial := res;
 end;
begin
  if n mod 2 = 0 then i1 := 1 else i1 := -1; //определяем число -1 степени n 
i2 := power(2 * n, 2 * x);
i3 := factorial(2 * n + 1);
func := (i1 * i2) / i3;end;
begin 
write('Введите n: '); readln(n); 
write('Введите x: '); readln(x); 
 writeln('Сумма равна: ', func(n, x));  
end.

Program Table;
uses math; //подключаем математический модуль, возможно с модулем я ошибся
var  // объявляем локальные переменные для программы
    a , b, h : Real; //указывает дробный тип числа

function calculate_f( x: Real) : Real; //объявляем функцию в теле программы
begin
    calculate_f := 1/2*sin(x/4+1) ;   //записываем результат вычисления в функцию
end;

Begin
    a := -0.99; //определяем
    b :=  50.0;  //вводные
    h := 0.1; //значения

    while a < b do begin //пока "a" меньше "b"
        writeln("F(", a, ') = ', calculate_f(a)); //выводим результат вычислений в строку
        a := a + h; //прибавляем шаг "h"
    end;
end.

Я могу и ошибиться, потому что писал на Паскале оочень давно :D
Поэтому Вам прийдется поправить некоторые ошибки в коде.