Algoritmo que informe se foi aprovado pela média 5

Crie um programa que receba 4 notas de um aluno e verifique se foi aprovado ou reprovado com média maior ou igual a 5

Pseudocódigo:

programa exercicio1
var
  n1, n2, n3, n4, media : real;
inicio
   leia n1;
   leia n2;
   leia n3;
   leia n4;
   media ← (n1+n2+n3+n4)/4;
   escreva media;
   se (media >= 5) entao
     escreva "Aluno Aprovado"; 
   fim_se;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 24/03/2010
Program exercicio1; 
 uses crt;
 var
 n1, n2, n3, n4, media : real; 
 Begin
 writeln('Insira a Nota 1');
 readln(n1);
 writeln('Insira a Nota 2');
 readln(n2);
 writeln('Insira a Nota 3');
 readln(n3);
 writeln('Insira a Nota 4');
 readln(n4);
 media := (n1+n2+n3+n4)/4;
 writeln('A media = ', media);
 	If (media >= 5) then
 		writeln('Aluno Aprovado');  
 writeln('Pressione para fechar');
 readkey;  
End.