program tamgiac;
var a,b,c: integer;
begin
write('Nhap canh a= ');readln(a);
write('Nhap canh b= ');readln(b);
write('Nhap canh c= ');readln(c);
If (a>b+c) or (b>a+c) or (c>a+b) then writeln(a:5:2,b:5:2,c:5:2,' la 3 canh cua tam giac')
else writeln(a:5:2,b:5:2,c:5:2,' khong phaila 3 canh cua tam giac')
readln
End.
xin ctlhn