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

uses crt;
var
a:array[1..100]of real;
i,n:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
a[i]:=exp(i*ln(2));
for i:=1 to n do
write(a[i]:1:1,'  ');
readkey;
end.