program FillArray;

var
arr: array[1..15] of integer;
i: integer;

begin
Randomize;

// Заполнение массива случайными числами из интервала [-15;20]
for i := 1 to 15 do
begin
arr[i] := Random(36) - 15; // Генерация случайного числа из интервала [-15;20]
end;

// Вывод всех элементов массива на экран
for i := 1 to 15 do
begin
Write(arr[i], ' ');
end;

Readln;
end.