Calcular Media Algoritimo

Espero que gostem desse meu humilde algoritimo em Pascal para calcular media das notas para minha escola

Abracos

www.nkilla.com
const
Media = 25; // Constante da Media

var
i : integer; // Inteiro
C : Char; // Char

procedure linha;
var
a : integer; // Procedure para dar um charme na aplicacao
begin

For a := 1 to 80 do write('-');
end;

// Inicio da Procedure de escolha de materia
Procedure Materia;
begin

Write('Qual e a Materia que voce deseja calcular Media ?');
writeln;
writeln;
writeln('---+---+-----+---+-----+---+-----+---+-----+---+--+-----+---+--');
writeln(' 1 Ingles | 2 Matematica | 3 Portugues ');
writeln('---+---+-----+---+-----+---+-----+---+-----+---+--+-----+---+--');
writeln(' 4 Fisica | 5 Quimica | 6 Biologia ');
writeln('---+---+-----+---+-----+---+-----+---+-----+---+--+-----+---+-- ');
writeln(' 7 Historia| 8 Geografia | 9 Ingles');
writeln('---+---+-- ---+---+-----+---+-----+---+-----+---+--+-----+---+--');
writeln(' 10 Atualidades| 11 Sociologia | 12 Filosofia | 13 Espanhol');
writeln;
Writeln('Escolha o Numero referente a Materia que voce Deseja Calcular');
Readln(i);
Writeln;

case i of

1 : write('Materia: Ingles');
2 : write('Materia: Matematica');
3 : write('Materia: Portugues');
4 : write('Materia: Fisica');
5 : write('Materia: Quimica');
6 : write('Materia: Biologia');
7 : write('Materia: Historia');
8 : write('Materia: Geografia');
9 : write('Materia: Ingles');
10 : write('Materia: Atualidades');
11 : write('Materia: Sociologia');
12 : write('Materia: Filosofia');
13 : write('Materia: Espanhol');
end;

end;

// Calculo da materia

Procedure CalculoMateria;
var n,z,a,Part,Prova,Teste : real;

begin

Writeln;
Writeln('Digite as Notas da Materia Acima :');
Writeln;
Write('Nota do Teste :');
Writeln;
readln(Teste);

n := Teste * 0.4; // Multiplica o valor do teste por 0,4
Writeln('Nota do Teste = ',n:5:2); Dado 5:2 , Quantidade de Zeros nas casas decimais

Write('Nota da Prova :');
Writeln;
readln(Prova);

a := Prova * 0.5; // Multiplica a prova por 0,5

Writeln('Nota da Prova = ',a:5:2);
Write('Nota de Participacao :');
Writeln;

Readln(Part); // Soma o total e da o valor abaixo

z := (n+a+Part);
Writeln;
Writeln('Media Total na Materia Nesse Bimestre =',z:5:2);
end;

Procedure RepeatCalc;

begin
Repeat
WriteLn ('Voce Deseja Calcular a Media de Outra Materia (S/N) ?'); // Procedimento para repeticao de calculo

 C := ReadKey;
 Materia;
 CalculoMateria;
Until C='n';
C := ReadKey;
Exit;
End;

begin

linha;
Writeln('Aplicativo para Calcular Media por Breno Sobral');
linha;
writeln;
Materia;
writeln;
CalculoMateria;
writeln;
RepeatCalc;

readln;

end.