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

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.