Нужно написать программу в паскали. условие следующее: даны три числа. найти сумму двух наибольших из них.

uses math; var a,b,c,mn,x:real; begin writeln('a,b,c'); readln(a,b,c); mn:=Min(MIn(a,b),c); x:=a+b+c-mn; write('max=',x:0:2); readln end.