Определить массив из 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.