1.

program tinh_tbc;

uses crt;

   var a, b: interger;

             tbc: real;

begin

   clrscr;

   a:=35;

   b:=108;

   tbc:=(a+b)/2;

   writeln('Trung binh cộng 2 so a va b la: ', tbc);

   readln

end.

2. Alt + F9 để dịch chương trình.

3. Ctrl + F9 để chạy chương trình và xem kết quả của chương trình.

Câu 1. Program p; Uses CRT; Const a=55; b=108; Var trung_binh_cong:real; tong:integer; Begin clrscr; Tong:=a+b;trung_binh_cong:=tong/2; Writeln('Tong :',tong); Writeln('trung binh cong :',trung_binh_cong:0:0); Readln end. Câu 2 có thể liệt kê một số lỗi như đặt sai hàm const, const phải ở trên var, thiếu dấu chấm phẩy... Mà không cần vì có lỗi thì sửa luôn bài trên rồi PS: trung bình cộng bạn có thể khai báo tên ngắn hơn cũng được, mình để thế cho bạn dễ hiểu, bạn khai báo trung binh cộng là integer cũng được vì tổng a và b là số chẵn