С клавиатуры вводится число Х. Заполните массив 10 элементами, в котором первый элемент равен числу Х, а каждый следующий в 2 раза больше предыдущего.
const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
readln(x);
a[1]:=x;
for i:=2 to n do
a[i]:=a[ ]* ;
for i:=1 to n do
write (a[i]:6);
end.