Нужно! заполнить одномерный массив элементами, значения которых равны их удвоенным порядковым номерам.

Program massiv;
var a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
a[i]:=i*2;
for i:=1 to 10 do
writeln ('a[',i,']=',a[i],' ');
end.