Mik cảm thấy biến TBC ko có ý nghĩa nên bạn xóa đi cx đc

Bạn xem bài của mik nha:

program ct;
uses crt;
var a,b: integer;
begin
    clrscr;
    writeln('Nhap a,b'); readln(a,b);
    writeln('Trung binh cong cua a,b la: ',(a+b)/2:5:0);
    readln;
end.

Cái phần mik gạch chân (:5:2) là nó có ý nghĩa là quy định biểu thức (a+b)/2 sẽ có độ dài phần nguyên là 5 và độ dài phần thập phân là 0 (Có nghĩa là lm tròn á)

Nếu bn lập trình nt kia thì biến TBC ko cần đến đâu bn nhé, khi thực hiện nó sẽ ko in ra biến TBC mà nó chỉ in ra kết quả của phép tính (a+b)/2 thôi, vì cái phép tính (a+b)/2 ko đc gán vs biến TBC. theo mk bn nên thêm câu lệnh TBC:=(a+b)/2; và bỏ cái (a+b)/2 ở dòng 10 đi.