Viết chương trình Pascal tính điểm trung bình 3 môn Văn Toán Anh

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.