Даны 5 целых чисел. Посчитайте минимально возможную и максимально возможные
суммы выбрав ровно 4 числа из заданных изначально.

const n = 5;vara: array[0..n-1] of longint;max, min, sum: longint;i : byte;beginwriteln ('Введите ', n, ' целых чисел: ');for i:=0 to n-1 do beginread (a[i]);inc (sum, a[i]);if a[i]>a[max] then max:=i;if a[i]<a[min] then min:=i;end;writeln ('Макс. сумма 4-ех элементов: ', sum-a[min]);writeln ('Мин. сумма 4-ех элементов: ', sum-a[max]);end.