Program P85;
 { Tablou cu componente de tipul Elev }
type Elev = record
               Nume : string;
               Prenume : string;
               NotaMedie : real
            end;
     ListaElev = array[1..40] of Elev;
var  E : Elev;
    LE : ListaElev;
     n : 1..40;
     i : integer;
begin
 write('n='); readln(n);

 for i:=1 to n do
   begin
     writeln('Daţi datele elevului  ', i);
     write('Numele:  '); readln(LE[i].Nume);
     write('Prenumele:  '); readln(LE[i].Prenume);
     write('Nota Medie:  '); readln(LE[i].NotaMedie);
   end;

 E.NotaMedie:=0;

 for i:=1 to n do
   if LE[i].NotaMedie > E.NotaMedie then E:=LE[i];

 writeln('Cel mai bun elev:');
 writeln(E.Nume, ' ', E.Prenume, E.NotaMedie : 5:2);

 readln;
end.