Составить массив из 10 целых случайных чисел на промежутке от -30 до 30. Вывести массив. Найти количество чётных элементов и вывести их номера

var i,count:integer; mas: array [1..10] of integer; begin randomize; for i:=1 to 10 do begin mas[i]:=random(-30,30); write(mas[i], ' '); end; writeln(''); writeln('Номера четных элементов'); count:=0; for i:=1 to 10 do begin if mas[i] mod 2 = 0 then begin write(i,' '); count:=count+1; end; end; writeln(''); writeln('Количество четных элементов = ', count); end.