Выполните трассировку (пошаговое выполнение алгоритма вручную на бумаге). Определите значение переменной Х после выполнения фрагмента программы.

program raf105;

const

 n = 10;

var

 x: array[1..n] of integer;

 i: integer;

 a,b,c: boolean;

begin

 a:= True;

 writeln('Заполните массив из ',n,' чисел');

 for i:=1 to n do

 begin

   readln(x[i]);

   a:= (x[i] = 0) and a;

   b:= ( not(c) and (x[i] > 0) ) or b;

   c:= ( not(b) and (x[i] < 0) ) or c;

 end;

 if a

   then writeln('Все числа равны нулю');

 if b

   then writeln('Первое ненулевое число - положительное');

 if c

   then writeln('Первое ненулевое число - отрицательное');

end.

n, x = map(int, input().split())

array = ['0'] + list(i for i in range(1, n+1))

while array[1] != x:

   if array.index(x) % 2 == 0:

       for g in range(1, len(array)):

           if g % 2 != 0:

               array[g] = ''

       print("стереть все числа, стоящие на нечётных позициях")

   else:

       for g in range(1, len(array)):

           if g % 2 == 0:

               array[g] = ''

       print("стереть все числа, стоящие на чётных позициях")

   array = list(filter(bool, array))