Дан массив целых чисел ,содержащий 15 элементов.вывести на экран индексы четных элементов массива .

Var mass:array[1..15] of integer;
var i:integer
;begin
Randomize;
for i:=1 to 15 do begin 
mass[i]:=Random (46) - 25; 
write(mass[i],' '); 
 end; 
writeln;
for i:=1 to 15 do begin 
if (mass[i] mod 2 = 0) then   
 writeln(i);   
end;
end.