uses System.Collections.Generic;
begin
var q:=new Queue< integer >(SeqRandom(8,-10,10));
q.Enqueue(q.Skip(2).Take(3).Sum);
q.Println;
end.
Если принципиально удалять при чтении из очереди
uses System.Collections.Generic;
begin
var q:=new Queue< integer >(SeqRandom(8,-10,10));
q.Println;
q.Enqueue(Range(0,4).Sum(x -> begin var r:=q.Dequeue; result:=x>=2? r:0 end));
q.Println;
end.
(скрин от 1ого варианта)
Большое спасибо заранее