Составьте таблицу кубов для первого десятка чисел ( по формуле POWER).

1) 111111_2 = 63_10
2) 10001010_2 = 138_10 если подразумевается беззнаковое целое

По логике, описывается в текстовых редакторах(World. блокнот
 и т.д.)
______________________________________________________________
Кнопка "СПАСИБО" и оценку ответа, пожалуйста.

Program pr;
Var a, b, c:array [1..20] of integer;
    i, c1, c2:integer;
begin
  for i:=1 to 20 do read(a[i]);
  for i:=1 to 20 do
    if i mod 2 = 0 then begin
      b[c1]:=a[i];
      Inc(c1);
    end
    else begin
      c[c2]:=a[i];
      Inc(c2);
    end;
  for i:=1 to 20 do write(b[i], );
  for i:=1 to 20 do write(c[i], );
end;

0 0 0 0 1 0 0
0 0 1 0 1 1 1
0 1 0 0 0 0 0
0 1 1 0 0 0 0
1 0 0 0 1 0 0
1 0 1 1 1 1 1
1 1 0 0 0 0 0
1 1 1 1 0 0 1