Program BTT;
Uses crt;
Var a,b,c,tbc: real;
Begin
Clrscr;
Write('Nhap diem mon toan: '); Readln(a);
Write('Nhap diem mon Van: '); Readln(b);
Write('Nhap diem mon Anh: '); Readln(c);
tbc:=(a+b+c)/3;
Writeln('Tong la: ',s:0:2);
Write('Trung binh cong la: ',tbc:0:2);
Readln
End.