Program BTT;
Uses crt;
Var a,b,c: real;
Begin
Clrscr;
Write('Nhap do dai 3 canh cua tam giac: '); Readln(a,b,c);
If (a+b>c) and (b+c>a) and (a+c>b) then
Begin
If (b=c) or (a=c) or (a=b) then Write('Do la do dai 3 canh cua tam giac can')
Else Write('Do khong phai la do dai 3 canh cua tam giac can');
End
Else Write('Khong phai do dai 3 canh cua tam giac');
Readln
End.
