Fazer um algoritmo para ler as três notas de um aluno em uma disciplina, e depois imprimir a média aritmética das notas e a situação do aluno

var
n1,n2,n3,notafinal, media: real
inicio
// Seção de Comandos
Escreval("Digite a 1ª nota do aluno:")

leia(n1)

Escreval("Digite a 2ª nota do aluno:")

leia(n2)

Escreval("Digite a 3ª nota do aluno:")

leia(n3)

media <- (n1+n2+n3)/3

Se ((notafinal >=0) ou (notafinal <= 4.5)) entao
   escreval("Aluno reprovado, nota:", media)
   senao
   se ((notalfinal >=4.6) ou (notafinal <= 5.9)) entao
     escreval ("Aluno de recuperação, nota:", media)
   senao
     se ((notafinal >=6.0) ou (notafinal <= 10.0)) entao
        escreval("Aluno aprovado, nota:", media)
     senao

          escreval("nota inválida")
fimse
fimse
fimse
fimalgoritmo

algoritmo "MEDIA ALUNO - APROVADO, RECUPEAÇÃO E REPROVADO"

// Função :

// Autor :

// Data : 14/11/2014

// Seção de Declarações

var

NOTA1, NOTA2, NOTA3, NOTA4, MEDIA : REAL

inicio

// Seção de Comandos

ESCREVA("DIGITE A PRIMEIRA NOTA: ")

LEIA(NOTA1)

ESCREVA("DIGITE A SEGUNDA NOTA: ")

LEIA(NOTA2)

ESCREVA("DIGITE A TECEIRA NOTA: ")

LEIA(NOTA3)

ESCREVA("DIGITE A QUARTA NOTA: ")

LEIA(NOTA4)

MEDIA := (NOTA1 + NOTA2 + NOTA3 + NOTA4) / 4 ;

SE MEDIA <= 4 ENTAO

ESCREVA("A MEDIA DO ALUNO FOI: ", MEDIA)

ESCREVAL (" - ALUNO REPROVADO ")

FIMSE

SE MEDIA <= 6.9 ENTAO

ESCREVA("A MEDIA DO ALUNO FOI: ", MEDIA)

ESCREVAL (" - ALUNO DE RECUPERAÇÃO ")

FIMSE

SE MEDIA >= 7 ENTAO

ESCREVA("A MEDIA DO ALUNO FOI: ", MEDIA)

ESCREVAL (" - ALUNO APROVADO ")

FIMSE

fimalgoritmo