Сумма двух наибольших и сумма двух наименьших в Pascal
Написать решение

//Pascal ABC.NET 3.1 сборка 1219Const n=5;Var max1,max2,min1,min2,i:integer; ar:array[1..n] of integer;begin max1:=integer.MinValue; max2:=integer.MinValue; min1:=integer.MaxValue; min2:=integer.MaxValue; for i:=1 to n do  begin   readln(ar[i]);   if (ar[i]<max1) and (ar[i]>max2) then max2:=ar[i] else   if ar[i]>max1 then   begin   max2:=max1;   max1:=ar[i];   end;   if (ar[i]>min1) and (ar[i]<min2) then min2:=ar[i] else   if ar[i]<min1 then   begin   max2:=max1;   min1:=ar[i];   end;  end; writeln('Сумма максимумов:',max1+max2); writeln('Cумма минимумов:',min1+min2);end.Пример ввода:12345Пример вывода:Сумма максимумов:9Cумма минимумов:3

// PascalABC.NET 3.1, сборка 1255 от 20.06.2016begin  var a:=ArrRandom(ReadInteger('n='),1,100); a.Println;  Writeln('Сумма двух максимумов равна ',    a.SortedDescending.Take(2).Sum);  Writeln('Сумма двух минимумов равна ',    a.Sorted.Take(2).Sum);  end.Тестовое решениеn= 1514 6 2 18 93 74 2 23 69 83 35 45 9 65 32Сумма двух максимумов равна 176Сумма двух минимумов равна 4