{ File: triang2.pas }

{ Scopo: uso di if-then-else annidati }

program Triangolo2;
{ Legge le lunghezze dei lati di un triangolo e determina se il triangolo
  e' equilatero, isoscele o scaleno.
  Variante che utilizza if-then non annidati in sequenza. }

var
  primo, secondo, terzo : real;
  uguali                : integer; { conta il numero di coppie di lati uguali }

begin
  uguali := 0;
  write('Lunghezze lati triangolo ? ');
  readln(primo,secondo,terzo);
  if primo = secondo then
    uguali := uguali + 1;
  if secondo = terzo then
    uguali := uguali + 1;
  if primo = terzo then
    uguali := uguali + 1;
  if uguali = 0 then
    writeln('Scaleno')
  else if uguali = 1 then
    writeln('Isoscele')
  else
    writeln('Equilatero')
end. { Triangolo2 }