program bilet26;
type elev=record
     nume: string[30];
     varsta:integer;
     media:real;
     end;
var e:array[1..30] of elev;
    n,i,k:integer;
begin
write('nr de elevi este ');
readln(n);
for i:=1 to n do begin
 writeln('datele elevului ',i,' sunt ');
 write(' numele este ');
 readln(e[i].nume);
 write('varsta este ');
 readln(e[i].varsta);
 write('media este ');
 readln(e[i].media);
 end;
 for i:=1 to n do writeln(e[i].nume,' ',e[i].varsta,' ',e[i].media:5:2);
 writeln;
 while e[1].media<5 do begin
   for i:=1 to n-1 do e[i]:=e[i+1];
   n:=n-1;
 end;
  for i:=1 to n do
    if e[i].media<5 then begin
        for k:=i to n do
          e[k]:=e[k+1];
        n:=n-1;
      end;

 writeln('in lista au ramas ',n,' elevii care nu sunt corigenti ');
 for i:=1 to n do writeln(e[i].nume,' ',e[i].varsta,' ',e[i].media:5:2);
 writeln;
 

 readln;
 end.