Question

Составьте программу нахождения суммы большего и меньшего из чисел a,b,c.

Answer 1

var a,b,c,min,max:integer;
begin
readln(a,b,c);
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a; end;
if c>max then max:=c;
if c<min then min:=c;
writeln(max+min);
end.

Пример:
3 8 5
11