Составить программу заполнения массива а[1..10] следующими числами: 1 2 3 4 5 6 7 8 9 10 1 6 3 12 5 18 7 24 9 30 закономерность: значения элементов с нечетными индексами равны индексу элемента, a значения элементов с четными индексами - утроенному индексу элемента. (программа pascal abc)
if i mod 2=0 then a[i]:=i*3 else a[i]=i