*pascal free -bài tập: +tính điểm trung bình 3 môn Toán, Văn, Anh của 33 học sinh BÀI LÀM VIỆC VỚI DÃY SỐ Giúp mình với, cảm ơn nhiều ạ

uses crt;

var i:integer;

      tong,toan,van,anh: array[1..33] of integer;

      tb: array [1..33] of real;

begin

clrscr;

writeln('Nhap diem 3 mon toan, van, anh cua 33 hoc sinh:');

for i:= 1 to 33 do

begin

tong[i]:=0;

writeln('Nhap diem cua hoc sinh thu ',i);

write('Toan: ');readln(toan[i]);

write('Van: ');readln(van[i]);

write('Anh: ');readln(anh[i]);

tong[i]:= toan[i] + van[i] + anh[i];

tb[i]:=tong[i]/3

end;

writeln('Diem trung binh 3 mon cua 33 hoc sinh la:');

for i:= 1 to 33 do writeln('Diem trung binh cua hoc sinh thu ',i,' la: ',tb[i]:0:2);

readln;

end.