sửa lỗi giúp mình bài này với, đề thi hk2 :<
uses crt;
program cau1;
var toan ; van; tbc : array[20..30] of integer
clrscr ;
bagin
for i:=20 to 30
write('nhap vao diem toan:') ; readln(toan[i]);
write('nhap vao so diem van:') ; readln(van[i])
tbc[i] :=(van[i]+toan[i]i)/2;
for i:=20 to 30 do ;
writeln('diem trung binh la:',tbc[i]);
readln
end;