Sửa lỗi:
Program tinh dien tich_hinh tam_giac;
Var a, h, S: real;
Begin
Write('Nhap do dai canh day: a '); Readin (a);
Write('Nhap do dai chieu cao: h '): Readin (h);
S:=(a*h)/2;
Writeln('Dien tich hinh tam giac la: ', S:10:2);
Readln
End.
--------- Tiếp theo là bạn dịch CT và nhập giá trị của từng cặp (a, h) theo yêu cầu đề bài nhé --------