Ввести одномерный массив М(х),элементами которого являются положит. и отрицат. целые числа. Найти среднее арифметическое чисел,больших 3; наибольшее среди последних 10-ти чисел,частное от деления наибольшего и среднего.Сформулировать новый массив С(N),состоящий из элементов массива М(х), которые больше найденного частного.

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016// Внимание! Если программа не работает, обновите версию!begin  var M:=ArrRandom(ReadInteger('x='),-50,50); M.Println;  var pa:=M.Where(p->p>3).Average;  Writeln('Среднее арифметическое чисел, превышающих 3: ',pa);  var pm:=M.TakeLast(10).Max;  Writeln('Максимум из десяти последних чисел: ',pm);  var pp:=pm/pa;  Writeln('Отношение двух найденных величин: ',pp);  Writeln('Сформированный массив');  var C:=M.Where(p->p>pp).ToArray; C.Printlnend.Примерx= 152 -44 30 49 -36 47 -38 -21 -50 3 -5 50 37 -8 -18Среднее арифметическое чисел, превышающих 3: 42.6Максимум из десяти последних чисел: 50Отношение двух найденных величин: 1.17370892018779Сформированный массив2 30 49 47 3 50 37