Program Tam_giac;
Var
   a,b,c:Integer;
   tamgiac,deu,can:Boolean;
Begin
   Writeln('BA CANH CUA TAM GIAC ?');
   Writeln('----------------------');
   Write('-Nhap so thu nhat= ');
   Readln(a);
   Write('-Nhap so thu hai = ');
   Readln(b);
   Write('-Nhap so thu ba  = ');
   Readln(c);
   tamgiac:=False;
   deu:=False;
   can:=False;
   If (a+b>c) And (b+c>a) And (c+a>b) Then
       Begin
         tamgiac:=True;
         If (a=b) And (b=c) Then
             deu:=True;
         If (a=b) Or (b=c) Or (c=a) Then
             can:=True;
      End;
    Writeln;
   Writeln(' 3 so vua nhap la:');
   Writeln('+Tam giac: ',tamgiac);
   Writeln('+Tam giac deu: ',deu);
   Writeln('+Tam giac can: ',can);
   Writeln;
   Writeln('   Bam phim <Enter> de ket thuc');
   Readln
End.

                            -Học tốt nhá-

Tam giác đềuTam giác gồm có ba cạnh bằng nhauTam giác cânTam giác có hai cạnh bất kì bằng nhau Tam giác vuôngTam giác có bình phương một cạnh bất kì bằng tổng bình phương hai cạnh còn lạiTam giác vuông cânTam giác gồm có hai cạnh góc vuông bằng nhauTam giác thườngTam giác không có tính chất nào như trên (Không có góc vuông, ba cạnh có độ dài khác nhau)