Дан массив целых чисел a(n) (n=15) заполненный случайным образом числами из промежутка [-20,50] . Заменить нулем четные

program change;var a: array [1..15] of integer;i: integer;beginrandomize;writeln();

for i:= 1 to 15 do // заполнение массива и вывод элементовbegina[i]:= random(71) - 20;write(a[i] : 4);end; writeln();

for i:= 1 to 15 do // замена четных элементов массива на 0, выводbegin if a[i] mod 2 = 0 then a[i]:= 0;write(a[i] : 4)endend.