{ File: triang.pas } { Scopo: uso di if-then-else annidati } program Triangolo; { Legge le lunghezze dei lati di un triangolo e determina se il triangolo e' equilatero, isoscele o scaleno. Variante che utilizza if-then-else annidati. } var primo, secondo, terzo : real; begin write('Lunghezze lati triangolo ? '); readln(primo,secondo,terzo); if primo = secondo then if secondo = terzo then writeln('Equilatero') else writeln('Isoscele') else if secondo = terzo then writeln('Isoscele') else if primo = terzo then writeln('Isoscele') else writeln('Scaleno') end. { Triangolo }