Ver si un triangulo es equilatero, isoceles o escaleno

Función en PSeInt que muestra si un triángulo es equilatero, isoceles o escaleno

Proceso qe_figura_es 
resp<-'s' 
mientras resp='S' o resp='s' Hacer 
Escribir 'ingrese los tres lados'; 
Leer a,b,c; 
Si a=b y a=c Entonces 
Escribir 'es un equilatero'; 
Sino 
Si a=b o b=c o a=c Entonces 
Escribir 'es un isoceles'; 

Sino 
Escribir 'es un escaleno'; 
FinSi 
FinSi 
Escribir 'Desea ingresar otros valores? (S/N)' 
Leer resp 
FinMientras 
FinProceso 

Tambien puede ser así: Por: Rafael Quintero

Proceso Triangulo

Escribir 'Ingrese los 3 lados'

Leer L1,L2,L3

Si L1=L2 y L1=L3 Entonces
Escribir 'es un equilatero'
FinSi
Si L1=b o L2=L3 o L1=L3 Entonces
Escribir 'es un isoceles';
Sino
Escribir 'es un escaleno';

FinSi

FinProceso