Viết chương trình nhập vào ba số thực a, b, c. Sau đó kiểm tra xem ba số này có tạo thành cạnh của tam giác hay không. kiểm tra xem nó thuộc loại nào trong số các loại sau: VUONG CAN, VUONG, CAN, DEU, THUONG, KHONGPHAITAMGIAC

Var a,b,c:real;
begin
        readln(a,b,c);
        if (a+b<=c) or (a+c<=b) or (b+c<=a) then
           write('KHONGPHAITAMGIAC')
        else
         if (a=b) and (b=c) then
          write('DEU')
          else
                if ((abs(sqr(a)+sqr(b)-sqr(c))<0.000001) or
                      (abs(sqr(a)+sqr(c)-sqr(b))<0.000001) or
                       (abs(sqr(b)+sqr(c)-sqr(a))<0.000001))
                         and ((a=b) or (a=c) or (b=c)) then Write('VUONG CAN')
                       else
                           if (abs(sqr(a)+sqr(b)-sqr(c))<0.000001)
                           or (abs(sqr(a)+sqr(c)-sqr(b))<0.000001)
                           or (sqr(b)+sqr(c)-sqr(a)<0.000001)
                           then Write('VUONG')
                           else
                            if (a=b) or (a=c) or (b=c) then Write('CAN')
                            else Write('THUONG');
end.