Program TamGiac; Uses crt; Var a, b, c, s, p: extended;
Begin Clrscr; Write('Nhap do dai 3 canh: '); Readln(a, b, c); p := (a + b + c) / 2; s := sqrt(p * (p - a) * (p - b) * (p- c)); Writeln('Chu vi = ',p * 2 : 0 : 2); Write('Dien tich = ',s :0 : 2); Readln End.
