7) Faça um programa que leia nome, turma, matrícula, sexo, e as três notas de cada aluno e a seguir escrever a média de cada aluno, a maior e a menor nota da turma.

Program Pzim ;

var
nome,turma, sexo: string;
media: real;
maior,menor, matricula, sala:integer;
notas: array[1..3] of integer;
linha:integer;

Begin
for sala:= 1 to 40 do
begin
writeln(' digite o nome do aluno');
readln(nome);
writeln('digite a turma do aluno');
readln(turma);
writeln('digite o sexo do aluno');
readln(sexo);
writeln('digite a matricula do aluno');
readln(matricula);
writeln('digite a sala do aluno');
readln(sala);
begin
for linha :=1 to 3 do
begin
writeln('digite a nota do aluno');
readln(notas[linha]);
if notas > maior then maior:=nota;
if notas < menor then menor:=nota;

end;
media:=notas/3;
writeln('a media do aluno foi',media);
writeln(' a maior nota da turma foi ',maior);
writeln('a menor nota da turma foi',menor);

end;
end;

End.