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

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

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