Program bai2;

uses crt;

var a,b,c,P,S:word;

begin

clrscr;

write('nhap vao so a=');readln(a);

write('nhap vao so b=');readln(b);

write('nhap vao so c=');readln(c);

if (a+b>c) and (b+c>a) and (a+c>b) then

begin

writeln('a,b,c tao nen tam giac');

P:=a+b+c; writeln('chu vi tam giac = ' ,P);

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

end

else writeln('a,b,c khong tao nen tam giac');

readln;

end.

Chúc bạn học tốt

uses crt;
var a,b,c,p,s:extended;
       check:boolean;
begin
       clrscr;
       write('Nhap 3 canh tam giac: '); readln(a,b,c);
       check:=true;
       if (a>0) and (b>0) and (c>0) then
              begin
                     if a+b<=c then check:=false;
                     if a+c<=b then check:=false;
                     if b+c<=a then check:=false;
              end
       else check:=false;
       if check=false then write('Khong la ba canh cua mot tam giac')
       else
              begin
                     p:=(a+b+c)/2;
                     s:=sqrt(p*(p-a)*(p-b)*(p-c));
                     writeln('Chu vi tam giac: ',p:0:2);
                     write('Dien tich tam giac: ',s:0:2);
              end;
       readln;
end.