Дан массив из 15 чисел. заполните его случайными числами

var a:array[1..15] of integer;

i:integer;

begin

writeln(\'Включаем генератор случайных значений...\');

randomize;

writeln(\'Заполняем массив случайными числами...\');

for i:=1 to 15 do a[i]:=random(100);

writeln(\'Выводим массив...\');

for i:=1 to 15 do writeln(a[i]);

end.