program ba_canh_tam_giac;
uses crt;
var a,b,c: real;
Begin
clrscr;
write('Nhap ba so a, b và c: '); readln (a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
writeln (' a,b va c la ba canh cua mot tam giac ')
else writeln ( ' a,b va c khong la ba canh cua mot tam giac ');
readln
end.