program phuongt;

uses crt;

  var a, b, c, g1, g2, g3: integer;

begin

          clrscr;

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

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

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

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

          begin

                      if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then write('Tam giac vuong');

                      write('Nhap so do goc 1: '); readln(g1);

                      write('Nhap so do goc 2: '); readln(g2);

                      write('Nhap so do goc 3: '); readln(g3);

                      if (g1<=180) and (g2<=180) and (g3<=180) then

                      begin

                                 if (g1=90) or (g2=90) or (g3=90) then write('Tam giac vuong');

                                 if (g1>90) or (g2>90) or (g3>90) then write('Tam giac tu');

                                 if ((g1<90) or (g2<90) or (g3<90)) and ((g1=90) or (g2=90) or (g3=90)) then write('Tam giac nhon');

                      end

                      else write('Nhap so do goc sai');

          end;

          readln

end.

uses crt;

var

a,b,c: integer;

begin

write('nhap 3 canh tam giac a,b,c '); read(a,b); readln(c);

If (a+b<=c) and (b+c<=a) and (c+a<=b) then write('ba canh nay khong phai la ba canh tam giac')

                                                                   else

 begin

If (a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b) then write('ba canh nay la ba canh cua tam giac vuong');

If (a*a+b*b>c*c) or (b*b+c*c>a*a) or (c*c+a*a>b*b) then write('ba canh nay la ba canh cua tam giac nhon');

If (a*a+b*b<c*c) or (b*b+c*c<a*a) or (c*c+a*a<b*b) then write('ba canh nay la ba canh cua tam giac tu');

end;

readln

End.