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

Предыдущий
вопрос Следующий
вопрос

var
a, b, c, sum: integer;
begin
readln(a, b, c);

if (a >= b) and (a >= c) then
sum := a + max(b, c)
else if (b >= a) and (b >= c) then
sum := b + max(a, c)
else
sum := c + max(a, b);

writeln(sum);
end.