Program hoc24;
var a,h : integer;
S:real;
Begin
writeln('nhap a='); readln(a);
writeln('nhap h='); readln(h);
S:=a*h/2;
Writeln('dientichtamgiac=',S);
Readln
End.
*Cái này mình chỉ giải theo cách của mình thôi nhé! Nếu có sai sót gì thì cho mình xin lỗi*
program tam_giac;
uses crt;
var a,b,c,p,S:real;
begin
clrscr;
write('nhap canh a:'); readln(a);
write('nhap canh b:'); readln(b);
write('nhap canh c:'); readln(c);
p:=(a+b+c)/2;
S:=(p*(p-a)*(p-b)*(p-c));
writeln('dien tich hinh tam giac la:',S:10:2);
readln;
end.