Решите задачу на языке Pascal.
Дано 3 числа. Найти суму двух наибольших из них.

var a,b,c,max,two: Integer;beginwriteln('Введите 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 thenbegintwo:=max;if c < b then two:=b;if c > b then two:=c;writeln(max,'+',two,'=',max+two);end;if max=b thenbegintwo:=max;if c < a then two:=a;if c > a then two:=c;writeln(max,'+',two,'=',max+two);end;if max=c thenbegintwo:=max;if a < b then two:=b;if a > b then two:=a;writeln(max,'+',two,'=',max+two);end;end.