uses crt;
procedure make;
var d:text; a,b,c,P:real;
   begin
      assign(d,'input.pas');reset(d);
         readln(d,a);
         readln(d,b);
         readln(d,c);
      close(d);
      assign(d,'output.pas');rewrite(d);
      if(a+b>c)and(a+c>b)and(b+c>a)then
         begin
            p:=(a+b+c)/2;
            writeln(d,'Chu vi:',A+B+c:0:2);
            writeln(d,'Dien tich:',sqrt(p*(P-A)*(p-b)*(p-c)):0:2);
         end else writeln(d,'A,B,C khong hop le!!!');
      close(d);
   end;
begin
clrscr;
    make;
end.

Mình dùng hệ thức hê-rông nha!!!

#include <iostream>
#include <math.h>
#include <fstream>
using namespace std;
float dt(int a,int b, int c)
{
    int p=(a+b+c)/2;
    return sqrt(p*(p-a)*(p-b)*(p-c));
}
int main()
{
    ifstream inp("DL.INP");
    ofstream out("KQ.OUT");
    int a,b,c;
    inp>>a>>b>>c;
    if(a+b<=c||b+c<=a||a+c<=b){
        out<<"Tam giac khong hop le";
    }
    else{
        out<<"Chu vi:"<<a+b+c<<endl;
        out<<"Dien tich: "<<dt(a,b,c);
    }
    inp.close();
    out.close();
    //samon247
    return 0;
}