Дан массив из 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.