program trung_binh_cong;
uses crt;
var tb,a,b,c: real;
begin
clrscr;
write('Nhap diem cua mon toan: ',a );readln(a);
write('Nhap diem cua mon van:',b);readln(b);
write('Nhap diem cua mon anh:',c);readln(c);
tb:=(a+b+c)/3;
write(' Diem trung binh cua 3 mon:,'tb);
readln
end.
Bạn thử đi chứ mình không chắc chắn đâu nha