Tham khảo!
program Dien_tich_hinh_tam_giac;
uses crt;
var a,h : integer
S: real
begin:
clrscr;
Writeln(‘a= ‘); Readln(a);
Writeln(‘h= ‘); Readln(h);
S:= (a*h)/2
Writeln( Dien tich hinh tam giac co do dai 1 canh va chieu cao vua nhap la S= ‘,S);
Readln
end.