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

var a: array[1… 16]of integer; i,k: integer; beginfor i: =1 to 16 do begin a[i]: =random (41) -20; write (a[i],'); end; for i: =1 to 16 do if (a[i] mod 3=0) and (a[i]<>0) then begin writeln ('est'); k: =1; break; end; if k<>1 then writeln ('net'); end.