PSeInt_Ejercicio22_CalcularArea

Proceso Ejercicio22_CalcularArea
	//Crear un programa que llame a un modulo llamado AREA, el cual calcula el area de
	//un rectangulo y para hacerlo debe recibir dos datos desde el algoritmo principal,
	//uno es la base y el otro la altura

	//variables
	definir dato1, dato2 como real
	definir resp como caracter
	Borrar Pantalla
	Repetir
		Escribir "Dame la base del rectangulo"
		leer dato1
		Escribir "Dame la altura del rectangulo"
		leer dato2
		Area( dato1, dato2)
		Escribir "Deseas calcular otra area? (s/n)"
		leer resp
	Hasta Que resp = "n"

FinProceso

//Modulo AREA
SubProceso resultado <- Area( base, altura)
	definir resultado como numerico
	resultado = base * altura
	Escribir "Resultado: ", resultado

FinSubProceso