tìm các lỗi sai trong chương trình sau và giải thích: Program b10; begin var tin,ly,hoa:integer write('nhap vao diem tin:'); readln(tin); write('nhap vao diem ly:'); readln(ly); write('nhap vao diem hoa:'); readln(hoa); tbc:=(tin+ly+hoa)/3 writeln('diem trung binh la:',tbc); readln end;

Var tin, ly, hoa : integer

=> Thiếu dấu chấm phẩy cuối lệnh khai báo biến

=> Sai kiểu dữ liệu : Điểm số có thể là số thực

=> Sai vị trí khai báo : vì khai báo biến không ở phần thân

=> Chưa khai báo biến tbc có sử dụng ở phần thân

tbc := (tin + ly + hoa) / 3

=> Thiếu dấu chấm phẩy cuối câu lệnh 

End;

=> Sai dấu chấm phẩy 

1. var tin,ly,hoa:integer

- Sai vị trí, phần khai báo phản nằm đầu chương trình (ngay sau Program b10;);

- Thiếu dấu ; ở cuối.

- Thiếu biến tbc kiểu số thực được dùng ở dưới (tbc:=(tin+ly+hoa)/3).

Sửa lại: var tin,ly,hoa:integer; tbc:real;

2. tbc:=(tin+ly+hoa)/3

- Thiếu dấu ; ở cuối.

Sửa lại: tbc:=(tin+ly+hoa)/3;

3. end;

- Dùng sai dấu, end kết thúc chương trình phải là end.

Sửa lại: end.

Sủa lại cả bài:

Program b10;
var tin,ly,hoa:integer; tbc:real;
begin
write('nhap vao diem tin:'); readln(tin);
write('nhap vao diem ly:'); readln(ly);
write('nhap vao diem hoa:'); readln(hoa);
tbc:=(tin+ly+hoa)/3;
writeln('diem trung binh la:',tbc);
readln
end.