Classificazione dei triangoli – 1

Date le misure dei tre lati di un triangolo, decidere se si tratta di un triangolo equilatero, isoscele, …

Un percorso per individuare la categoria di appartenenza potrebbe essere

If(A = B) And (A = C) Then
   Begin
      Writeln('Equilatero');
   End
Else
   Begin
      Writeln('Non equilatero');
   End;

If(A = B) And (A = C) Then
   Begin
      Writeln('Equilatero');
   End
Else
   Begin
      Writeln('Non equilatero');
      If(A = B) Or (A = C) Or (B = C) Then
         Begin
            Writeln('Isoscele');
         End
      Else
         Begin
            Writeln('Scaleno');
         End;
   End;

…