program tp5;
uses wincrt ;
const n=5;       {ici la constante n le nombre d'étudiants}

type etudiant= record       {le type etudiant qui est un article}
               nom,prenom:string;
               age:0..70;
               note1,note2,moyenne:real;
               end;

{Déclaration des variables}
var
tab:array[1..n]of etudiant;  {un tableau qui contient n valeurs de type etudiant}
i:integer;

begin
{lecture des données}
for i:=1 to n do
    begin
    with tab[i] do
     begin
     writeln('Etudiant n° ',i,' : ');
     write('Nom : ');readln(nom);
     write('Prénom : ');readln(prenom);
     write('Age : ');readln(age);
     write('Note1 : ');readln(note1);
     write('Note2 : ');readln(note2);
     moyenne:= (note1+note2)/2;
     writeln('   ');
     end;
end;
writeln('*******************************************');

{Affichage des étudiants et leurs moyennes}
for i:=1 to n do
    begin
     with tab[i] do
     begin
     writeln('Etudiant n° ',i,' : ');
     writeln('Nom : ',nom);
     writeln('Prénom : ',prenom);
     writeln('Moyenne : ',moyenne);
     writeln('         ');
     end;

    end;



end.