Program baitap;
Uses crt;
Var a,b,c:real;
Begin
Clrscr;
Write('Nhap ba so a,b,c:'); Readln(a,b,c);
If a>b>c then Write('Hieu cua a b c la: ', a-b-c);
If a>c>b then Write('Hieu cua a b c la: ', a-c-b);
If b>a>c then Write('Hieu cua a b c la: ', b-a-c);
If b>c>a then Write('Hieu cua a b c la: ', b-c-a);
If c>a>b then Write('Hieu cua a b c la: ', c-a-b);
If c>b>a then Write('Hieu cua a b c la: ', c-b-a);
Writeln('Trung binh cong:', (a+b+c)/3:9:1);
Readln
End.