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

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.