uses crt;
var s,t: real;
    a,b,c,p: integer;
begin
clrscr;
write('Nhap canh a:');  readln(a);
write('Nhap canh b:');  readln(b);
write('Nhap canh c:');  readln(c);
p:=a+b+c;
t:=p/2;
s:=sqrt(t*(t-a)*(t-b)*(t-c));
writeln('Chu vi tam giac do la: ',p);
writeln('Dien tich tam giac do la: ',s:10:2);
readln;
end.

uses crt;

var a, b, c, cv, s, p : real;

begin

clrscr;

write('Nhap ba canh tam giac a, b, c : ');

readln(a, b, c);

cv := a + b + c;

p := cv / 2;

s := sqrt(p * (p - a) * (p - b) * (p - c));

writeln('Chu vi tam giac : ', cv : 2 : 1);

writeln('Dien tich tam giac : ', s : 2 : 1);

readln

end.