Nhập điểm T, V, S, D, A. Tính điểm thi khối C, D. viết chương trình pascal mn giup e vs a

uses crt;
var toan, van, su, dia, anh, tbC, tbD: real;
begin
     write('Nhap diem mon Toan: ');
     readln(toan);
     write('Nhap dien mon Van: ');
     readln(van);
     write('Nhap diem mon Su: ');
     readln(su);
     write('Nhap diem mon Anh: ');
     readln(anh);
     write('Nhap diem mon Dia: ');
     readln(dia);
     tbC:=(van+su+dia)/3;
     tbD:=(toan+van+anh)/3;
     write('Ket qua: Diem khoi C: ',tbC:0:2,'. Diem khoi D: ',tbD:0:2,'.');
     readln
end.