...
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')