Решите задачу на языке Pascal.

Дано 3 числа. Найти суму двух наибольших из них.

Var a, b, c, max, two: Integer;

begin

writeln ('Введите 1 число') ;

readln (a) ;

writeln ('Введите 2 число') ;

readln (b) ;

writeln ('Введите 3 число') ;

readln (c) ;

max:=a;

if max < b then max:=b;

if max < c then max:=c;

if max=a then

begin

two:=max;

if c < b then two:=b;

if c > b then two:=c;

writeln (max,'+', two,'=', max+two) ;

end;

if max=b then

begin

two:=max;

if c < a then two:=a;

if c > a then two:=c;

writeln (max,'+', two,'=', max+two) ;

end;

if max=c then

begin

two:=max;

if a < b then two:=b;

if a > b then two:=a;

writeln (max,'+', two,'=', max+two) ;

end;

end.