Hình đây nhé
Lỗi:
1. Bạn xóa đi Begin ở dòng thứ 10 nhé hoặc thêm end; trước khi Readln;
2. Dòng 11 sửa lại: S:= sqr(p*(p-a)*(p-b)*(p-c));
3. Dòng 12: sửa lại: writeln('Dien tich tam giac: ',s:4:2);
cái này lỗi bạn chỉ cần ấn
Enter là nó mất màn hình xanh bị lỗi luôn