Algoritmo detarea
	Definir a,b,r Como Real
	Repetir
		Escribir "Elije una opcion"
		Escribir "1 = Area del triangulo"
		Escribir "2 = Area del cuadrado"
		Escribir "3 = Area del rectangulo"
		Escribir "4 = Area del circulo"
		Escribir "5 = Salir"
		leer n
		si n == 1 Entonces
			Escribir "Ingresa la base y la altura del triangulo"
			leer a,b
			Escribir "El area del triangulo es: ",(a*b)/2
		FinSi
		si n == 2 Entonces
			Escribir "Ingresa uno de los lados del cuadrado"
			leer a
			Escribir "El area del cuadrado es: ",a*a
		FinSi
		si n == 3 Entonces
			Escribir "Ingresa la base y la altura del rectangulo"
			leer a,b
			Escribir "El area del rectangulo es: ",a*b
		FinSi
		si n == 4 Entonces
			Escribir "Ingresa el radio del circulo"
			leer r
			Escribir "El area del circulo es: ",(3.1416 * (r*r))
		FinSi
	Hasta Que n == 5	
FinAlgoritmo