Составить программу, которая формирует массив из 16 случ. Чисел, принадлежащий…

var a: array[1… 16]of integer; i: integer; beginfor i: =1 to 16 do begin a[i]: =random (39)+4; write (a[i],'); end; writeln; for i: =1 to 16 do begin if a[i] mod 2=0 then a[i]: =2 else a[i]: =3; write (a[i],'); end; end.