СРОЧНОО! Дан одномерный массив целых чисел. получить новый массив состоящий из элементов увеличилась в 2 раза. (тема массивы программа паскаль)

var a:array[1..10] of integer;i:integer;beginfor i:=1 to 10 dobeginreadln(a[i]);a[i]:= a[i]*2;end;for i:=1 to 10 dowriteln(a[i]);end.