Algoritmo que calcule a média aritmética entre 4 notas

Construa um algoritmo que calcule a média aritmética entre 4 notas oferecidas pelo usuário

Pseudocódigo:

programa exercicio2
var
   n1,n2,n3,n4, media : real;
inicio
   leia n1;
   leia n2;
   leia n3;
   leia n4;
   media ← (n1 + n2 + n3 + n4) / 4;
 escreva media;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 25/02/2010
program exercicio2;
uses crt;
   var n1,n2,n3,n4, media:real;
begin
   writeln('Digite a nota 1');
   readln(n1);
   writeln('Digite a nota 2');
   readln(n2);
   writeln('Digite a nota 3');
   readln(n3);
   writeln('Digite a nota 4');
   readln(n4);
   media := (n1+n2+n3+n4)/4;
writeln('A media das notas = ', media:5:0);
writeln('Pressione para fechar');
readkey;
end.