Program P84;
 { Date de tipul Elev }
type Elev=record
             Nume : string;
             Prenume : string;
             NotaMedie : real
          end;
var E1, E2, E3 : Elev;
begin
 writeln('Daţi datele primului elev:');
 write('Numele:  '); readln(E1.Nume);
 write('Prenumele:  '); readln(E1.Prenume);
 write('Nota medie:  '); readln(E1.NotaMedie);

 writeln('Daţi datele elevului al doilea:  ');
 write('Numele:  '); readln(E2.Nume);
 write('Prenumele:  '); readln(E2.Prenume);
 write('Nota medie:  '); readln(E2.NotaMedie);

 if E1.NotaMedie > E2.NotaMedie then E3:=E1 else E3:=E2;

 writeln('Elevul cu media mai bună:');
 writeln(E3.Nume, ' ', E3.Prenume, E3.NotaMedie : 5:2);

 readln;
end.