Составьте программу, которая формирует массив из 16 случайных чисел от -20 до 20 и находит индексы четных элементов

на всякий случай проверь

Program pr1;var A:array [1..16]of integer;i,k:integer;beginrandomize;for i:=1 to 16 dobeginA[i]:=random(41)-20 ;wriet(A[i]0;end;k:=0;for i:=1 to 16 doif i mod 2=0 thenwriteln;write (i,' ');end.