PROGRAMA NN2;
VAR
X,Y,Z: real;
INICIO
imprima('Entre com os tres valores do lado do triangulo');
leia(X,Y,Z);
se (X<Y+Z) e (Y<X+Z) e (Z<Y+X) então
se (X=Y) e (X=Z) então
imprima('Triangulo equilatero');
senao se (X=Y) ou (X=Z) ou (Y=z) então
imprima('Triangulo Isoceles');
senao
imprima(´Triangulo escaleno');
fimse;
fimse;
senao
imprima('Nao é triangulo');
fimse
FIM.