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

Pascal ABC.

program symma;var a,b,c,s:integer;begin Readln(a,b,c); if (a > b) and (c > b) then s:=a+c;  if (b > a) and (c>a) then s:=b+c; if (a>b) and (b>c) then s:=a+b;  if (b>a) and (a>c) then s:=b+a;  Writeln(s)end.