Даны натуральное число N (<50) и числовой массив А[1..N]. Составить программу, которая определяет сумму минимального элемента множества {А1; А3;...} и максимального элемента множества {А2;А4;...}.

Спасибо. Пожалуйста составьте прог. на языке Турбо паскаль

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  var a:=ArrRandom(n,-99,99); a.Println;  var minOdd:=Range(0,n-1,2).Select(i->a[i]).Min;  var maxEven:=Range(1,n-1,2).Select(i->a[i]).Max;  Writeln('Искомая сумма равна ',minOdd+maxEven)end.Примерn= 15-44 -48 -14 63 -34 27 -16 66 15 -17 -33 69 53 58 -31Искомая сумма равна 25