Phương trình :
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;