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

var a,b,c,min,max:integer;

begin

   write('Введите a: '); readln(a);

   write('Введите b: '); readln(b);

   write('Введите c: '); readln(c);

   min := a;

   max := a;

   if b < min then min:=b;

   if b > max then max:=b;

   if c < min then min:=c;

   if c > max then max:=c;

   write('Сумма минимального и максимального чисел равна: ', min+max);

end.