program a_b_c ; 
uses crt; 
var max,min,tg,a,b,c:real; 
begin 
clrscr; 
write('Nhap a, b,c '); 
readln(a,b,c); 
max:=a;min:=a; 
if b>max then max:=b; 
if b<min then min:=b; 
if c>max then max:=c; 
if c<min then min:=c; 
tg:=a+b+c-max-min; 
writeln('max=',max:4:2,' min=',min:4:2, ' tg =',tg:4:2); 
readln; 
end. 
admin?/