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