Среднее арифметическое в очереди

begin
  var q:=new Queue<integer>;
  var n:=ReadInteger('Кол-во элементов (не менее 4):');
  Randomize;
  var k:integer;
  for var i:=1 to n do begin
    k:=Random(-20,50); Print(k);
    q.Enqueue(k)
    end;
  Writeln; // очередь заполнена, выведены ее элементы
  var (ko,s):=(-100,0);
  for var i:=1 to n do begin
    k:=q.Dequeue; q.Enqueue(k);
    if k.IsOdd then ko:=k;
    if i=3 then s:=k
    end;
  s+=ko;
  q.Enqueue(s);
  q.Println; // искомая сумма помещена в очередь
  for var i:=1 to n do begin
    k:=q.Dequeue;
    if i<>4 then q.Enqueue(k)
    end;
  q.Println
end.

begin
  var q := new Queue<integer>(SeqRandomInteger(8, -20,50 ));
  q.Println;
  
  q.Dequeue; // 1-ый элемент просто выбрасываем
  var avr := (q.Dequeue+q.Dequeue) div 2;
  q.Enqueue(avr);
  
  q.Println;
end.

begin
  var q := new Queue<integer>(SeqRandomInteger(8, -20,50 ));
  q.Println;
  
  q.Dequeue; // 1-ый элемент просто выбрасываем
  var avr := (q.Dequeue+q.Dequeue) div 2;
  q.Enqueue(avr);
  
  q.Println;
end.