Viết CT tính hiệu và trung bình cộng của a, b , c (lm tròn 1 chữ số thập phân) lưu ý: các bn jup thì nên viết chương trình đầy đủ giúp

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.

Program TH;

Uses Crt;

Var a,b,c:integer;

Begin

clrscr;

Write('Nhap so a: '); readln(a);

Write('Nhap so b: '); readln(b);

Write('Nhap so c: '); readln(c);

If a>b>c then Write('Hieu 3 so tren la: ', a-b-c) else If b>a>c then Write('Hieu 3 so tren la: ', b-a-c) else Write('Hieu 3 so tren la: ', c-b-a);

Write('Trung binh cong 3 so tren la: ',(a+b+c)/3:4:1);

Readln;

End.