Написать программу выводящую все элементы массива сформированного по условию
for i := 1 to 10 do if i mod 2 = 0 then A[i] :=i * 2 else A[i] :=0;