Склавиатуры вводится число х. заполните массив 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.