Заполнить очередь 14 целыми числами из промежутка [0;80]. Отыскать целую часть

// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018

// Внимание! Если программка не работает, обновите версию!

begin

 var Q := new Queuelt;integergt;;

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

 Q.Println;

 var m := Trunc(Q.Where(t -gt; 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.