Паскаль. списки. формировать списки из n элементов. добавить элемент а после второго кратного 3м элемента списка (1, 6, 7, 3*, 5). удаление первого кратного 3м элемента списка (1,7,3,а,5). выполнить сортировку списка по убыванию. после выполнения каждой операции выводить список на экран.

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

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

begin

 var L := new List<integer>;

 L.AddRange(Seq(1, 6, 7, 3, 5));

 L.Println;

 var A := ReadInteger('A=');

 var s := L.ToArray.IndexesOf(t -> t mod 3 = 0);

 var i2 := s.Skip(1).First;

 L.Insert(i2 + 1, A);

 L.Println;

 L.RemoveAt(s.First);

 L.Println;

 L := L.SortedDescending.ToList;

 L.Println

end.