Даны три числа. Определить сумму двух наибольших чисел из набора.

begin  var a:=Seq(1,3,6);   Writeln(a);    Writeln((a.SplitAt(2).Item1).Max+((a.SplitAt(2).Item1).Max+a.SplitAt(2).Item2).Max); end.