If15. Даны три числа. Найти сумму двух наибольших из них.( помогите сделать блок схему пож)

Var a,b,c:integer;beginreadln(a,b,c);if agt;b then if bgt;c then writeln(a+b)else writeln(a+c)else if agt;c then writeln(b+a)else writeln(c+b);end.