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

var a,b,c: integer;
min, max, s: integer;
begin
writeln(Введите числа);
readln(a,b,c);
if (agt;b) nbsp;then max:=a else max:=b;
if (cgt;max) then max:=c;
if (alt;b)then min:=a else min:=b;
if (clt;min)then min:=c;
s:=max+min;
writeln(Сумма наибольшего и минимального числа =, s);
end.

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