program Canh_Cua_Tam_Giac;

uses crt;

var x,y,z : real;

begin   

Clrscr;

writeln('Nhap 3 so x,y,z :'); readln(x,y,z);

if (x+y > z ) and (x+z >y) and ( z+y > x) then writeln ('x,y,z la do dai 3 canh cua mot tam giac')

else writeln ('x,y,z  khong la do dai 3 canh cua mot tam giac');

readln;

end.

Program Kiem_tra_tam_giac;

Uses crt;

Var a,b,c,cv,s,p: real;

BEGIN

Clrscr;

Writeln(‘nhap so thu nhat’); readln(a);

Writeln(‘nhap so thu hai’); readln(b);

Writeln(‘nhap so thu ba’); readln(c);

If(a+b>c) And(a+c>b) And(b+c>a) then

Begin

Cv:=a+b+c; p:=c/2; s:=sqrt(p*(p-a)*(p-b)*(p-c));

Writeln(‘ba so vua nhap la ba canh cua tam giac’);

Writeln(‘ chu vi cua tam gia la’, cv: 4: 2, ‘ dien tich cua tam giac la’, s:6:2);

End

Else Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac');

Readln;

End.