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