Дано целое число n(> 0). сформировать и вывести целочисленный массив размера n, содержащий степени двойки от первой до n-й: 2,4,8,

Сделал через динамический массив и без модуля Math
var i,n:integer;    a:array of real;
begin 
Readln(n); 
SetLength(a,n); 
for i:=0 to Length(a) do   
a[i]:=Exp(Ln(2)*i); 
for i:=0 to Length(a) do   
writeln('2^',i,' = ',a[i]); 
Readln;
end.