Сформировать массив из 10 случайных целых чисел из отрезка от -10 до 10 вывести номера чётных элементов массива

program z1;var a:array[1..10] of integer;i:integer;for i:=1 to 10 dobegina[i]:=random(20)-10;if i mod 2=0 then writeln(a[i]);end;end.