Program Hz;

const n=10;

var x:array [1..n] of byte;
    i:byte;

Begin
// Сформируем исходный массив
X[1]:=2;
for i:=2 to n do X[i]:=X[i-1]+2;

Writeln('Исходный массив: ');
for i:=1 to n do Write(X[i]:5);
Writeln;

// Сформируем новый массив
for i:= 1 to n do
    Begin
    X[n+1-i]:=2*X[i];
    Write(X[i]:5); // Выведем на экран
    end;
Readln;
end.