Viết chương trình bằng ngôn ngữ lập trình Turbo Pascal nhập 3 số a, b, c từ bàn phím (a, b, c: số nguyên <=100). Hãy đưa ra màn hình thông báo đó có phải là số đo 3 cạnh của 1 tam giác không, nếu đó là số đo 3 cạnh của 1 tam giác thì tam giác đó là tam giác gì? (tam giác đều, tam giác cân, tam giác vuông, tam giác vuông cân, tam giác thường)

program Tam_giac;

uses crt;

var a,b,c:integer;

begin 

 readln(a,b,c);

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

then if (a=b) and (b=c) 

         then writeln('La tam giac deu')

          else if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b)

                 then writeln('La tam giac vuong can')

                 else writeln('La tam giac vuong')

          else if (a=b) or (b=c) or (c=a)

                 then writeln('La tam giac can')

                 else writeln('Tam giac thuong')

else writeln('Khong phai la tam giac');

readln 

end.

uses crt;
var a,b,c:integer;
begin
        write('Nhap 3 canh tam giac: '); readln(a,b,c);
        if ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then
                begin
                        writeln('3 canh vua nhap la 3 canh tam giac');
                        if (a=b) and (b=a) then write('Tam giac deu')
                        else if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then write('Tam giac vuong')
                        else if (a=b) or (b=c) or (c=a) then write('Tam giac can')
                        else if (sqr(a)=sqr(b)+sqr(c)) and (a=b) or (sqr(b)=sqr(a)+sqr(c)) and (b=c) or (sqr(c)=sqr(a)+sqr(b)) and (c=a) then write('Tam giac vuong can')
                        else write('Tam giac thuong')
                end
        else begin
                write('3 canh vua nhap khong phai 3 canh tam giac');
        end;
        readln;
end.