Составьте программу, которая заполняет массив а [1..10] случайными числами в диапазоне от 10 до 40, затем меняет местами 4 и 7 элемент массива. Это Pascal, 9 класс

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(10,10,40); a.Println;  Swap(a[3],a[6]); a.Printlnend.Пример15 19 29 28 27 20 37 34 39 3115 19 29 37 27 20 28 34 39 31