Дан массив случайных чисел в диапазоне от -10 до 100 заменить чётные элементы нулем

Program name;const n=10;var a:array [1..10] of integer;i:integer;beginfor i:=1 to n doa[i]:=random(110)-10;for i:=1 to n doif a[i]mod 2=1 then a[i]:=0;end.