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<b) and (a<c) then min:=a; if (b<a) and (b<c) then min:=b; if (c<b) and (c<a) then min:=c; sum:=a+b+c; writeln('max = ',max); writeln('min = ',min); writeln('sum = ',sum); end; var a,b,c:real; begin readln(a,b,c); maxminsum(a,b,c); <span>end.</span>