program dientichtamgiac;

var a,h:real;

begin

clrscr;

writeln('Nhap a: '); readln(a);

writeln('Nhap h: '); readln(h);

writeln('Dien tich tam giac la: ',1/2*a*h:4:2);

readln;

end.

program bai_giai;
uses crt;
var a,h:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('h=');readln(h);
  write('dien tich hinh tam giac do la:',a*h/2);
 readln;
end.

bạn chỉ cop ở phần trên thôi dưới đây mình giải thích nha

program bai_giai;   //   khai báo tên chương trình
uses crt;   //   khai báo thư viện
var a,h:longint;   //   khai báo biến cần sử dụng
begin   //   bắt đầu chương trình
 clrscr;   //   xoá màn hình kết quả
  write('a=');readln(a);   //   nhập cạnh đáy
  write('h=');readln(h);   //   nhập chiều cao
  write('dien tich hinh tam giac do la:',a*h/2);   //   xuất ra màn hình diện tích hình tam giác đó
 readln;   //   dừng màn kết quả
end.   //   kết thúc chương trình