program bilet25;
type elev=record
     nume: string[30];
     varsta:integer;
     media:real;
     end;
var e:array[1..30] of elev;
    n,i: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;
 writeln('elevii corigenti cu varsta mai mare ca 17 sunt ');
 for i:=1 to n do
 if (e[i].media<5) and(e[i].varsta>17) then writeln(e[i].nume);
 readln;
 end.