{ 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 }