Program TAMGIAC;
Uses crt;
Var   a,b,c,s,p: real;
Begin
   Clrscr;
   Writeln(‘BAI TOAN TAM GIAC:’); Writeln('———————————');
   Write('nhap a =');
   readln(a);
   Write ('nhap b =');
   readln(b); Write('nhap c =');
   readln(c);
   If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
      Begin
         p:=(a+b+c)/2;
         s:=sqrt(p*(p-a)*(p-b)*(p-c));
         Writeln('Chu vi tam giac:',2*p:4:2);
         Writeln('Dien tich tam giac:',s:4:2);
      End
   Else
      Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac') ;
   Readln;
End