.Дано дві змінні а=5, b=10, поміняйте значення змінних місцями

Привет, у меня есть вопрос по литературе который я не могу решить, вот он Уявні перетворення Лероя Кліві заповніть таблицю. Нужно записать Уявні перетворення та результат ( цитата з твору)

Объяснение:

Если тебе не трудно, можешь зайти в мой профиль и дать ответ на этот вопрос? Если дашь ответ, то я мюсразу же тебе

2^i=n, n = 16

2^i=16

i=4 бит

50 * 4 = 200 бит

200: 8 = 25 байт

var a: array[1..100] of integer;

i,s,n,m: integer;

begin

  randomize;

  read(n,m);

  for i : = 1 to 100 do

  begin

        a[i]: =random(m-n) +n;

        if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1;

  end;

  writeln(s);

end.