var

Notafim, Faltas, nota1, nota2, nota3: Real

Idade, notatrab, Media, Peso1, Peso2: Real

Result, Reprovado: Caractere

inicio
// Seção de Comandos

Escreva ("Digite o número de faltas: ")
Leia (Faltas)

Escreva ("Digite a nota da primeiroa prova: ")
Leia (nota1)

Escreva ("Digite a nota da segunda prova: ")
Leia (nota2)

Escreva ("Digite a nota da terceira prova: ")
Leia (nota3)

Escreva ("Digite a nota do trabalho final: ")
Leia (notatrab)

Limpatela

Se (nota1>nota2) e (nota2>nota3) entao
   Media <- (nota1+nota2) / 2
Senao
   Se(nota1>nota2) e (nota2<nota3) entao
      Media <- (nota1+nota3) / 2
   Senao
      Media <- (nota2+nota3) / 2
   Fimse
Fimse

Se Faltas < 5 entao
   Peso1 <- 3
Senao
   Se (Faltas > 5) e (Faltas < 10) entao
      Peso1 <- 2
   Senao
      Peso1 <- 1
   Fimse
Fimse

Se Idade <= 17 entao
   Peso2 <- 1
Senao
   Se Idade >= 18 <= 50 entao
      Peso2 <- 2
   Senao
      Peso2 <- 3
   Fimse
Fimse

Notafim <- Media * Peso1 + notatrab * Peso2

Se Notafim <= 50 entao
   Result <- Reprovado
Senao
   Se (Nofim > 50) e (Notafim < 70) entao
      Result <- Regular
   Senao
      Se (Nofim > 70) e (Notafim < 80) entao
         Result <- Bom
      Senao
         Se (Nofim > 80) e (Notafim < 90) entao
            Result <- Muito Bom
         Senao
            Result <- Excelente
         Fimse
      Fimse
   Fimse
Fimse

Escreval
Escreval ("Este foi o resultado do aluno",Result)
Escreval