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

var a:array[1..10] of integer;

i: integer;

begin

for i:=1 to 10 do

begin

if i mod 2 = 0 then A[i] :=i * 2

else A[i] :=0;

write (a[i]:3)

end

end.