Написать программу нахождения суммы большего и меньшего из 3-х чисел.для "паскаль"

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

Приведу пример кода на Pascal:

program SumOfMinAndMax;
var
a, b, c, sum: integer;
begin
write('Введите три числа: ');
readln(a, b, c);
if (a > b) and (a > c) then
begin
if b < c then
sum := a + c
else
sum := a + b;
end
else if (b > a) and (b > c) then
begin
if a < c then
sum := b + c
else
sum := b + a;
end
else
begin
if a < b then
sum := c + a
else
sum := c + b;
end;
writeln('Сумма большего и меньшего чисел: ', sum);
end.

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