Viết chương trình nhập điểm vào các môn Toán,Văn,Anh rồi tính tổng điểm của 3môn đó

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 van, toan, anh, t : real;

begin

clrscr;

write('nhap diem toan : ');readln(toan);

write('nhap diem anh : ');readln(anh);

write('nhap diem van : ');readln(van);

t := toan + van + anh ;

writeln('tong diem 3 mon : ', t:2:1);

readln

end.