Заполнить очередь 14 целыми числами из интервала [0; 80]. найти целую часть среднего арифметического кратных 5 элементов очереди. результат поместить в очередь. удалить 5 элемент из очереди. после выполнения каждой операции выводить содержимое очереди на экран.

begin

 var Q := new Queue<integer>;

 SeqRandom(14, 0, 80).ForEach(t -> begin Q.Enqueue(t) end); // заполнили

 Q.Println;

 var m := Trunc(Q.Where(t -> t mod 5 = 0).DefaultIfEmpty.Average); // среднее

 Q.Enqueue(m);

 Q.Println;

 // удаление

 var L:=Q.ToList; // переписать в список

 L.RemoveAt(4); // удалить 5-й элемент

 Q.Clear; // очистить очередь

 foreach var t in L do // поэлементное добавление

   Q.Enqueue(t);

 Q.Println

end.