Написать программу нахождения суммы большего и меньшего из 3 чисел.

var a,b,c: integer;
min, max, s: integer;
begin
writeln('Введите числа');
readln(a,b,c);
if (a>b)  then max:=a else max:=b;
if (c>max) then max:=c;
if (a<b)then min:=a else min:=b;
if (c<min)then min:=c;
s:=max+min;
writeln('Сумма максимального и минимального числа =', s);
end.

var
  A : array [1..3] of Integer;
  i : integer;
  
function summa(A: array [1..3] of Integer): integer;
var
  max, min: integer;
begin
max := A[1];
min := A[1];
  For i:=1 to 3 do
Begin
 if max<A[i] then max:=A[i];
 if min>A[i] then min:=A[i];
end;
  summa := max + min;
end;
 
begin
  For i:=1 to 3 do
  Readln(A[i]);
  writeln(summa(A));
end.