ALgoritmo Pascal

Program Medias ;

//1 - Solicite ao usuário que informe, para 5 alunos, 4 notas. As notas irão de 1.0 a 10.0 , aceitando valores decimais. Ex: 8.5

//2 - Faça imprimir na tela uma tabela com as 4 notas dos alunos, além de uma coluna para a média aritmética e outra para a situação do aluno.

//2.1 - A situação do aluno deverá ser:

//a) Média menor que 5, Reprovado.

//b) Média entre 5 e 7, Exame

//c) Média 7 ou maior, Aprovado.

//2.2 - A média aritmética e a situação do aluno deverão ser retornados com subprogramação.

//2.3 - A tabela deverá conter cabeçalhos informando o significado de cada coluna.

//2.4 - As notas e as médias deverão aparecer formatadas com duas casas decimais na tabela e alinhadas com as colunas.

//3 - Ao final do programa, imprimir a média geral da turma. (Soma de todas as médias divido pelo número de alunos).

//4 - Ponto bônus para quem validar a entrada do usuário, solicitando a nota ATÉ QUE ela esteja entre 0 e 10.

var

nota: array[1..5,1..4] of real;

lin: integer;

col: integer;

mediaaluno: real;

mediageral: real;

function media(nota1,nota2,nota3,nota4:real):real;

begin

media := (nota1 + nota2 + nota3 + nota4)/4;

end;

function Situacao (nota1:real):string;

begin

if mediaaluno >= 7 then

begin

Situacao := 'Aluno Aprovado';

end

else

begin

if mediaaluno >= 5 then

begin

Situacao := 'Aluno pegou Exame';

end

else

begin

Situacao := 'Aluno Reprovado';

end;

end;

end;

Begin

for lin := 1 to 5 do

begin

for col := 1 to 4 do

begin