составьте программу которая заполняет массив случайными целыми числами промежутка -15..15 и выводит на экран отрицательные элемены массива

begin

 var a := ArrRandom(ReadInteger('n ='), -15, 15);

 a.Println;

 a.ForEach(x -> begin if x < 0 then Print(x) end)

end.