var
p1,p2,p3,m:real
inicio
// Seção de Comandos
  escreva("Informe a primeira nota = ")
  leia(p1)
  escreva("Informe a segunda nota = ")
  leia(p2)
  escreva("Informe a terceiraa nota = ")
  leia(p3)
  m<-(p1+p2+p3)/3

  se m<7 entao
    escreva("Reprovado")
    senao
      se m<10 entao
       escreva("Aprovado")
      senao
        escreva("Aprovado com louvor")
      fimse
  fimse
fimalgoritmo