program diemtrungbinh;
uses crt;
var
t,v,a,i:Integer;
tb:Real;
begin
clrscr;
write('Nhap diem van');readln(v);
write('Nhap diem toan');readln(t);
write('Nhap diem anh');readln(a);
i:=t+v+a;
tb:=i/3;
writeln('Diem trung binh ba mon Toan, Van, Anh la ',tb);
readln
end.