Đề bài: Viết chương trình in ra các thông báo sau: Nhap so a: Nhap so b: Nhap so c: Tong cua day so la S:= Trung binh cong cua day la TBC:= So lon nhat cua day la Max:= So nho nhat_____________Min:= day so vua nhap vao la: bài này có 7 biến, mấy bạn tự đặt tên nha, Thanks

program bai_giai;

uses crt;

var a,b,c,max,min,s,tbc:longint;

begin

clrscr;

write('nhap a,b,c:');readln(a,b,c);

s:=a+b+c;

tbc:=(a+b+c)/3;

max:=a;

min:=a;

if(b>max)then max:=b;

if(c> max)then max:=c;

if(min>b)then min:=b;

if(min>c)then min:=c;

writeln('Tong cua day so la S:=',s);

writeln('Trung binh cong cua day la TBC:=',tbc);

writeln('So lon nhat cua day la Max:=',max);

writeln('So nho nhat cua day so la Min:=',min);

writeln('day so vua nhap vao la:',a,', ',b,', ',c);

readln

end.