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.

uses crt;

var a, b, c : real;

begin

clrscr;

write('Nhap diem toan, van, anh van = ');

readln(a, b, c);

writeln('Tong diem 3 mon = ', a + b + c : 2 : 1);

writeln('Trung binh 3 mon = ', (a + b + c) / 3 : 2 : 1);

readln

end.