Введите три числа a b c найдите сумму двух наибольших из них
Пример ввода 6 4 9
Пример вывода 15
На паскале

Var
  a,b,c,min:integer;
begin
  Write(Введите три числа: ); Read(a,b,c);
  if agt;b then min:=b else min:=a;
  if clt;min then min:=c;
  Writeln(Сумма двух наибольших равна ,a+b+c-min)
end.

Пример
Введите три числа: 6 4 9
Сумма двух наибольших равна 15