Определить массив из 16 элементов и заполнить его целыми числами от 30 до 60

var  m: array [1 .. 16] of integer;  i: integer;begin      for i := 1 to 16 do      begin        randomize;        m[i] := random(31) + 30;      end;      writeln('Вот Ваш массив');      for i := 1 to 16 do        writeln('m[', i, ']=', m[i], ' ');        readln;   end.