Заполнить массив из 20 элементов, по правилу: элемент массива больше его номера в 2 раза. (a[i]=2, a[i]=4)
Паскаль

то есть a[i] = i*2

var

   a : array[1..20] of integer;

begin

   for var i := 1 to 20 do a[i] := i*2;

end.