• Ba cạnh a, b, c của một tam giác phải thỏa mãn điều kiện là tổng hai cạnh bất kì luôn lớn hơn cạnh còn lại. Tức là a+b>c và b+c>a và a+c>b. Nếu nó đúng là ba cạnh của một tam giác thì ta tiến hành kiểm tra loại tam giác trên là loại nào. Nếu a, b, c không phải là ba cạnh của một tam giác thì ta in ra màn hình không phải là cạnh của tam giác và kết thúc chương trình.
• Tam giác vuông là tam giác có bình phương một cạnh bằng tổng bình phương hai cạnh còn lại.
• vote mik 5 sao nha

uses crt;

var a,b,c:real;

kt:integer;

begin

          clrscr;

           repeat

            write('Nhap a='); readln(a);

             write('Nhap b='); readln(b);

                write('Nhap c='); readln(c);

                until (a>0) and (b>0) and (c>0);

                  if (a+b>c) and (a+c>b) and (b+c>a) then 

                                      begin

                                             kt:=0;

                                            if (a=b) and (a<>c) and (b<>c) then kt:=1;

                               if (b=c) and (b<>a) and (c<>a) then kt:=1;

                              if (c=a) and (c<>b) and (a<>b) then kt:=1;

                             if kt=0 then writeln('Day khong la tam giac can')

                                else writeln('Day la tam giac can');

                                    end

       else writeln('Day khong la ba canh trong mot tam giac');

         readln;

end.