Program chuvi_dientich ;

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:= sqrt(p*(p-a)*(p-b)*(p-c));

Write('Dien tich hinh tam giac la',s:3:6);

Write('chu vi cua hinh tam giac la',a+b+c);

Readln

End.

#nguyenphuc024

uses crt;

var a,b,c,h,p,s:integer;

begin

clrscr;

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

write ('Nhap b: '); readln (b);

write ('Nhap c: '); readln (c);

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

p:=a+b+c;

s:=a*h;

       writeln ('Chu vi cua tam giac la: ',p);

        writeln ('Dien tich cua tam giac la: ',s);

readln;

end.