Сделать процедуру максимума и минимума 3 чисел , и их сумму . В паскале

procedure maxminsum(a,b,c:real); var sum,max,min:real; begin if (a>b) and (a>c) then max:=a; if (b>a) and (b>c) then max:=b; if (c>b) and (c>a) then max:=c; if (a