Alguem me pode ajudar neste exercicio?

Construa um algoritmo e respectivo fluxograma que lê o nome e as 4 notas bimestrais de
um aluno. Em seguida o Algoritmo calcula e escreve a média obtida pelo aluno escrevendo
também se o aluno foi aprovado ou reprovado.

Inicio
Escrever('Quais as notas?')
Ler(Nota1,Nota2,Nota3,Nota4)
Media -> (Nota1+Nota2+Nota3+Nota4)/4
Se Media => 10
Escrever('Aprovado')
Senão
Escrever('Reprovado')
Fim


Não seria algo deste género?

Sinceramente, numa fase bastante acessível da programação, não entendo o quanto pode ser complicado isto. Mas aqui vai uma dica :016:
Calculo que ainda não tenhas dado ciclos nem arrays... Por isso vou tentar tornar isto bastante simples :\



...
var nota1,nota2,nota3,nota4,média : Real;


Begin
Writeln ('Digite a 1ª nota do aluno');
Readln (nota1);

Writeln ('Digite a 2ª nota do aluno');
Readln (nota 2);

{até à 4ª nota.
depois é calcular a média...}

Media:=((nota1+nota2+nota3+nota4)/4); {nota que usaste o "/" por ser um real. Caso seja integer usa o "div" se não estou em erro)

if media >=9.5 then
writeln('Aprovado')
else
Writeln('Reprovado')

É claro que podes melhorar bastante o teu programa, protegendo-o... mas isso fica para mais tarde :016::016:

Cumps