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