Массив переменного размера (n) заполнить степенями двойки.

Паскаль ABC:ConstN = 7;VarA:array[0..N] of real;i:integer;BeginWriteLn('N = ',7);For i:= 0 to N-1 do Begin A[i]:=power(2,i); WriteLn('2^',i,' = ',A[i]) End;End.ABC.net:VarA:array of real;N,i:integer;BeginWrite('N = ');ReadLn(N);A:=new real[N];For i:= 0 to N-1 do Begin A[i]:=power(2,i); WriteLn('2^',i,' = ',A[i]) End;End.