ATP

programa
{

	real freq1 = -1, freq2 = -1
	real rec1 = -1, rec2 = -1
	real media

	funcao inicio(){
		//VAI PEDIR AS DUAS FREQUÊNCIAS ATÉ SER UM VALOR VÁLIDO
		enquanto (freq1 < 0 ou freq1 > 20){
			escreva("Escreva a 1ª frequência: ")
			leia(freq1)
			limpa()
		}
		se(freq1 < 7.5){
			recurso()
		}

		senao{
			enquanto (freq2 < 0 ou freq2 > 20){
				escreva("Escreva a 2ª frequência: ")
				leia(freq2)
				limpa()
			}
			se(freq2 < 7.5){
				recurso()
			}
			senao{
				se((freq1+freq2)/2 >= 9.5){
					escreva("Passou!")
				}
				senao{
					recurso()
				}
			}
		}
	}

	funcao recurso(){
		escreva("Vai a recurso!\n")
		enquanto(rec1 <0 ou rec1 > 20){
			escreva("Escreva a nota do recurso: ")
			leia(rec1)
		}
		se(rec1 < 9.5){
			enquanto(rec2 <0 ou rec2 > 20){
				escreva("Escreva a nota do 2º recurso: ")
				leia(rec2)
			}
			se(rec2 < 9.5){
				escreva("Não passou!")
			}
			senao{
				escreva("Passou!")
			}
		}
		senao{
			escreva("Passou!")
		}
	}
}