Funcion calcularpago(h,p)
	Escribir "El pago semanal es: $",h * p * 4
	Escribir "EL pago por el periodo academico es: $",h*p*16
FinFuncion
Algoritmo detarea
	Definir horas Como Entero
	Definir pago Como Real
	Escribir "Ingresa las horas trabajadas en la semana"
	leer horas
	si horas <= 15 Entonces
		Escribir "Ingresa el pago por hora"
		leer pago
		calcularpago(horas,pago)
	SiNo
		Escribir "El docente no es catedratico porque trabaja mas de 15 horas a la semana."
	FinSi
FinAlgoritmo