Заполнить очередь случайными числами из интервала [-20; 40]. найти сумму последнего нечетного элемента и третьего элемента очереди. результат поместить в очередь. удалить 4 элемент из очереди. после выполнения каждой операции выводить содержимое очереди на экран

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

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,40); 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.

uses crt;
var
a:array[1..7,1..10] of integer;
b,i,j:integer;
begin
clrscr;
randomize();

//заполнение массива случайными числами

for i:=1 to 7 do
for j:=1 to 10 do
begin
a[i,j]:=random(10);
end;

//вывод массива

for i:=1 to 7 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;

//удаляем строку 6 и меняем 5 и 2 строки местами

for j:=1 to 10 do
begin
a[6,j]:=a[7,j];
a[7,j]:=0;
b:=a[5,j];
a[5,j]:=a[2,j];
a[2,j]:=b;
end;
writeln('Отредактированный массив');
//выводим отредактированный массив
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
readln();
end.

1→ 2; 2→3; 3→4; 10→11; 100→101 К числу прибавляется 1

 

1→2; 2→4; 3→6; 4→8; 10→20; 100→200 Число умножается на 2

 

1→3; 2→5; 3→7; 4→9; 10→21; 100→201 К числу прибавляется следующее число. Например: 1+2=3; 2+3=5; 3+4=7; 100+101=201

 

1→2; 2→1; 3→4; 4→3; 10→9; 11→12; 100→99 Если число четное, то отнимаем 1, если нечетное, то прибавляем1.

 

1→2; 2→1; 3→6; 4→2; 10→5; 11→22; 100→50 Четное число делим на 2, нечетное число умножаем на 2

 

1→1; 2→1; 3→1; 4→1; 10→2; 11→2; 100→3 Сколько цифр в числе, такое  число

 

1→1; 2→2; 3→0; 4→1; 20→2; 21→ 0 Если число делится на 3, то 0. Если не делится, то ответом будет число 1 или 2, которое нужно прибавить или отнять чтобы получить 0 или число которое делится на 3 без остатка