Сгенерировать и вывести массив случайных чисел, состоящий из 16 элементов, заполненный случайными числами от 12 до 25?

var a:^array[1..100] of integer;

   n,i,j:integer;

begin

new(a);

repeat

write('Введите размер массива от 12 до 25 n=');

readln(n);

until n in [12..125];

for i:=1 to n do

begin

 a^[i]:=1+random(100);

 write(a^[i]:4);

end

end.

Объяснение: