a=float(input("Nhập vào cạnh a: "))
b=float(input("Nhập vào cạnh b: "))
c=float(input("Nhập vào cạnh c: "))

if (a+b>c) & (b+c>a) & (a+c>b) & (a>0) & (b>0) & (c>0):
    if (a==b)&(b==c):
        print ("\nĐây là tam giác đều")
    elif (a==b)& (a!=c) | (a==c)&(a!=b) | (b==c) & (b!=a):
            print ("\nĐây là tam giác cân")
    else:
        print("\nĐây là tam giác thường")
else:
        print ("\nKhông Tạo Thành Tam Giác")

Program TAMGIAC;
Uses crt;
Var a,b,c : real;
Begin
    Clrscr;
    Write('nhap a = ');readln(a);
    Write ('nhap b = ');readln(b);
    Write('nhap c =');readln(c);
    If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
    Write('La 3 canh tam giac')
    else write('Khong la 3 canh tam giac');
    readln
End.