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

var a,b,c,min,max,s: integer; begin   write('Ведите числo а '); readln(a);   min:=a; max:=a;   write('Ведите числo b '); readln(b);   if bmax then max:=b;   write('Ведите числo c '); readln(c);   if cmax then max:=c;   writeln('Сумма min + max = ',min+max); end. вроде так думаю отметь лучшим если сможешь