Ответ:

var i: integer;

var a: array [1..10] of integer;

begin

a[1]:=2;

write(a[1],' ');

for i:=2 to 10 do  

 begin

 a[i]:=2*a[i-1];

 write(a[i],' ');

 end;

end.