Дан одномерный массив, содержащий N элементов. Составьте алгоритм и программу, выполняющие следующие действия:

упорядочение элементов массива по возрастанию;

вычисление суммы A[1] + A[2]*A[2] + A[3]*A[3] …;

Например:

N = 5;

Числа: 4,1,3,2,5

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016begin  var n:=ReadInteger('n=');  var a:=ReadArrInteger('Вводите элементы:',n);  a.Sort;  a.Println;  var s:=a[0]+a[n-1];  for var i:=1 to n-2 do s:=s+sqr(a[i]);  Writeln('S=',s)end.Примерn= 5Вводите элементы: 4 1 3 2 51 2 3 4 5S=35