a=int(input("Nhập Cạnh a: "))
b=int(input("Nhập Cạnh b: "))
c=int(input("Nhập 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")
    elif (a*a==b*b+c*c)|(b*b==a*a+c*c)|(c*c==a*a+b*b):
            print("\nĐây là tam giác vuông")
    else:
        print("\nĐây là tam giác thường")

program sksk;
uses crt;
var a, b, c : integer;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
write('nhap do dai canh b :');readln(b);
write('nhap so dai canh c :');readln(c);
if ((a + b > c) and (a + c > b) and (b + c > a)) then
begin
writeln(a:4, b:4, c:4,' la do dai ba canh tam giac');
if (a*a = (b*b + c*c)) or (b*b =(a*a + c*c)) or (c*c = (a*a + b* b)) then
writeln('day la tam giac vuong');
if (a = b) and (b = c) and (a = c ) then
writeln('day la tam giac deu');
if ((a = b) or (a = c) or (b = c)) then 
writeln('day la tam giac can');
end
else writeln(' do dai ba canh khong thuoc tam giac ');
end.