8) Prepare um programa para calcular as notas da P1,P2 e P3 de 10 alunos, escreva a média de cada aluno
e escreva o total de pessoas aprovadas e reprovadas.
Sabe-se que a P3 tem peso dois.Então a média acima seria: 8,00 eo aluno estaria aprovado.

Programa algoritmo ;
var
P1: array[1..10]e real;
P2: array[1..10]e real;
P3: array[1..10]e real; 
media,soma:real;
cont:inteiro;
iniciopara cont:= 1 ate 10 faça
inicioescreva('1ª nota:');
leia(P1[cont]);
escreva('2ª nota:');
leia(P2[cont]);
escreva('3ª nota:');
leia(P3[cont]); 
soma:=(P1[cont]+P2[cont]+P3[cont]);
media[cont]:=soma/3; 
escreva('A media do aluno é:',media);

fim;

fim.