Составить программу которая формирует массив из 16 элементов…

Program g; VarA, B: Integer; N: Integer; S: Integer; z: array[0… 16] of integer; i: Integer; v: integer; BeginA: =(-20); B: =20; N: =16; For i: =1 To N DoBeginS: =Trunc (Random (B-A)+A); WriteLn (i: 2,'-е случайное число: ',S: 4); End; beginwriteln ('Індексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random (40) -20; if z[v] mod 3=0 then write (v, ') end; end; End.