{ File: triang3.pas }

{ Scopo: uso di if-then-else con condizioni complesse }

program Triangolo3;
{ Legge le lunghezze dei lati di un triangolo e determina se il triangolo
  e' equilatero, isoscele o scaleno.
  Variante che utilizza if-then-else con condizioni complesse. }

var
  primo, secondo, terzo : real;

begin
  write('Lunghezze lati triangolo ? ');
  readln(primo,secondo,terzo);
  if (primo = secondo) and (primo = terzo) then
    writeln('Equilatero')
  else if (primo = secondo) or (primo = terzo) or (secondo = terzo) then
    writeln('Isoscele')
  else
    writeln('Scaleno')
end. { Triangolo3 }