Program DIEN_TICH_TAM_GIAC;
uses crt;
var a,h,s:integer;
begin
clrscr;
Write('Nhap canh day:'); Readln(a);
Write('Nhap chieu cao:'); Readln(h);
s:=(a*h)/2;
Writeln('Dien tich cua hinh tam giac la:',s);
Readln
End.
xin lỗi bạn
mình xin sửa lại
uses crt;
var a,h:integer;
s:real;
begin
clrscr;
Write('Nhap canh day:'); Readln(a);
Write('Nhap chieu cao:'); Readln(h);
s:=(a*h)/2;
Writeln('Dien tich cua hinh tam giac la:',s:4:2);
Readln
End.
uses crt;
var a,h,s:integer;
begin
clrscr;
Write('Nhap canh day:'); Readln(a);
Write('Nhap chieu cao:'); Readln(h);
s:=(a*h)/2;
Writeln('Dien tich cua hinh tam giac la:',s);
Readln
End.