Дан одномерный массив, содержащий 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.2016
begin
  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 5
1 2 3 4 5
S=35