1) Dòng 1: de28

2) Dòng 4: Dtich

3) Dòng 3: abc

4) Dòng 5: S, p

5) Dòng 4: a, b, c

6) Dònng 14+ 15: 3, 5, 7 và 12, 14, 16

7)Dòng 4: Hàm

8) Dòng 14, 15: 2 lần thực hiện

9) Tính diện tích

10) Từ dòng 6 đến dòng 9

11) Từ dòng 10 đến dòng 17

12) 7 lỗi

13)

Dòng 2: Uses crt;

Dòng 3:Var a, b, c : integer

 Dòng 4:Fuction dtich(a,b,c:integer) : real;

Thiếu dòng trả về nên Thêm 1 dòng: dtich:=s;

Dòng 12: Write('Nhap 3 canh a, b, c');

Dòng 16: Readln;

1. Tên chương trình: de28

2. Tên chương trình con: Dt

3. Biến toàn cục: a,b,c

4. Biến cục bộ: S,p

5. Tham số hình thức: (a,b,c)

6. Tham số thực sự: (3,5,7) và (12,14,16)

7. Loại CTC: hàm

8. Số lần thực hiện CTC: 2 lần vì được gọi 2 lần

9. CTC thực hiện công việc: tính diện tích của 1 hình tam giác

10. Thân CTC từ dòng 6 đến dòng 9

11. Thân CT từ dòng 10 đến dòng 17

12. Chương trình trên có: 6 lỗi

13.

   ở hàng 2: Usses crt `->` Uses

   ở hàng 3: abc `->` a,b,c

   ở hàng 4: Function Dt(a,b,c:Integer); real;  `->` Function Dt(a,b,c:Integer):real;

   ở hàng 12: wwrite `->` write 

   ở hàng 13: dtich(3,5,7)  `->` dt(3,5,7)

   ở hàng 14: dtich(12,14,16)  `->` dt(12,14,16)

   Ngoài ra còn phải thêm dt:=S; ở trước end; trong CTC