lista3.1

{*Faça um programa que leia o nome de um aluno, a quantidade de provas
realizadas por ele e suas respectivas notas. O algoritmo deve apresentar ao
final o nome e a média das notas obtidas do aluno.*}
program questao4;
var notas,media,contador:real;
i,p:integer;
nome:string;
begin
     writeln('Digite o nome do aluno');
     readln(nome);
     writeln('Digite o numero de provas que ' , nome ,' fez');
     readln(p);
     contador := 0;
     for i:=1 to p do
     begin
          writeln('escreva as notas das provas');
          readln(notas);
          contador := contador+notas;
     end;
     media := contador/p;
     writeln(nome, ' tem media ' ,media:5:2);
     readln();
end.