Ejercicio 19 «2º Parcial» con selectores

Operaciones 
PROBLEMA:
Necesitamos un programa que le permita al usuario seleccionar entre 3 figuras
Circulo pedir radio y calcular área
Triangulo preguntar si es equilátero y si lo es pedir uno de sus lados si no lo es pedir los 3 lados para calcular perímetro
Cuadrado pedir 1 lado para calcular perímetro
ALGORITMO:

Entradas: alfanumérico: figura
cadena: tipo_triangulo
numérico: radio
numérico: l_1
numérico: l_2
numérico: l_3
Salidas: numérico: resultado
cadena: mensaje
INICIO
Leer figura
Si figura es:
«CIRCULO» entonces
Leer radio
Multiplicar PI por radio y elevar al cuadrado
Guardar en resultado
«UD ELIGIO CIRCULO» guardar en mensaje
«TRIANGULO» entonces
Leer tipo_triangulo
Si tipo_triangulo es:
«EQUILÁTERO» entonces
Leer l_1
Multiplicar l_1 por 3
Guardar en resultado
«UD ELIGIO UN TRIANGULO EQUILÁTERO»
SI NO entonces
Leer l_1
Leer l_2
Leer l_3
Sumar l_1 mas l_2 mas l_3
Guardar en resultado
«UD ELIGIO UN TRIANGULO» guardar en mensaje
«CUADRADO» entonces
Leer l_1
Multiplicar l_1 por 4
Guardar en resultado
«UD ELIGIO UN CUADRADO» guardar en mensaje
default: entonces
Guardar en mensaje «ERROR»
fin_selector
Imprimir resultado
Imprimir mensaje
FIN