program MaxMinSum;
vara, b, c, max, min: integer;
function FindMax(x, y: integer): integer;beginif x > y thenFindMax := xelseFindMax := y;end;
function FindMin(x, y: integer): integer;beginif x < y thenFindMin := xelseFindMin := y;end;
beginwriteln('Enter three numbers:');readln(a, b, c);
max := FindMax(FindMax(a, b), c);min := FindMin(FindMin(a, b), c);
writeln('Sum of the maximum and minimum numbers: ', max + min);end.
program MaxMinSum;
var
a, b, c, max, min: integer;
function FindMax(x, y: integer): integer;
begin
if x > y then
FindMax := x
else
FindMax := y;
end;
function FindMin(x, y: integer): integer;
begin
if x < y then
FindMin := x
else
FindMin := y;
end;
begin
writeln('Enter three numbers:');
readln(a, b, c);
max := FindMax(FindMax(a, b), c);
min := FindMin(FindMin(a, b), c);
writeln('Sum of the maximum and minimum numbers: ', max + min);
end.