2. Организовать одномерный массив А{2, 4, 8, …, 1024}.паскаль

var mas : [0..9] of integer;

x, b, i : integer;

begin

x := 2;

b:= 1;

i = 0;

while x != 1024 do

begin

x:= exp(b*ln(x));

mas[i] := x;

i := i + 1;

b := b + 1;

x := 2;

end;

end;

Если что непонятно или не верно - допишу