program akis;
var i,aux,j:integer;
type elev=record
nr,v:integer;
nume,prenume:string[100];
end;
var v:array[1..100] of elev;
n,l:integer;
begin
readln(n,l);
for i:=0 to n do
begin
readln(v[i].nume,v[i].prenume);
readln(v[i].nr,v[i].v);
end;
for i:=0 to n do
for j:=1+i to n do
if v[i].nume>v[j].nume then
begin
aux:=v[j].nume;
v[j].nume:=v[i].nume;
v[i].nume:=aux;
end;
for i:=0 to n do
if round(v[i].v/v[i].nr)<=2 then
write (v[i].nume,' ',v[i].prenume);
end.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Ne bucurăm dacă informațiile v-au fost de ajutor. Dacă aveți întrebări suplimentare sau aveți nevoie de asistență, nu ezitați să ne contactați. Revenirea dumneavoastră ne-ar onora, așa că nu uitați să ne adăugați la favorite!
