1) Faça um programa que leia o nome de dez alunos e respectivamente 1ª, 2ª, 3ª e 4ª notas, a seguir calcula a média. Escreva o nome do aluno a nota e a sua média.

POGRAM Pzim1;

TYPE
cadastro = record
nome: string;
nota: array[1..4] of integer;
media: real;
end;

VAR
aluno: array[1..10] of cadastro_aluno;
j, total, a: integer;

procedure 
begin
for a:=1 to 3 do
begin
total:=0 ;
writeln('* ALUNO - ',a,' *');
writeln;
writeln;

writeln('* Digite o nome do ALUNO - ');
read(aluno[a].nome);
writeln;

for j:=1 to 4 do
begin
write(' DIGITE A NOTA ',j,' - ');
read(aluno[a].nota[j] );
total:= total+ aluno[a].nota[j];
end;

aluno[a].media:= total/4;
writeln;writeln;
writeln(' ALUNO : ',aluno[a].nome);
writeln(' # MEDIA: ',aluno[a].media:2:2);
readln;
end;
end;
END.