Вывести каждое третье число от 12 до 20.(Паскаль)задача.​

n = 64

2^i = n

2^i = 64

i = 6 бит

ответ. 6 бит.

№1. программа на паскале

program xxx;

  var n : integer;

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

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.

я пробовала у меня вышло 15 но возможны и другие варианты