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

Uses crt;

var a: array [1 ... 16] of integer;

i, kn, kk: integer;

begin

writeln ('Дан массив') ;

for i:=1 to 16 do

begin

a[i]:=random (41) - 20;

write (a[i]:4) ;

end;

writeln;

writeln ('Индексы кратных 3 ') ;

for i:=1 to 16 do

if a[i] mod 3=0 then

write (i:4) ;

end.