program zad;

type sportsmen=record fam:string;
     rez:integer;
     gr:integer;
     str:string;
     rost:150..220;
     ves:30..100;
end;



procedure pervaya (i,n:integer; dann:array of sportsmen);
var a:string;
b:integer;

  begin
    writeln('vvedite stranu: ');
    readln(a);
    for i:=1 to n do begin
    if dann[i].rez<=b then writeln (dann[i].fam);
  end;   readln;
   end;

procedure vtoraya(i,n:integer; dann:array of sportsmen);
 var min:integer;
     s:string;
     sredr:integer;
     sredv:integer;
     rost:150..220;
     ves:30..100;
  begin
    rost:=150;
    ves:=30;
    writeln ('vvedite stranu dlja vychislenija sred. rosta i vesa: ');
    readln (s);
    for i:=1 to n do
     if (dann[i].str=s) and ((dann[i].rost+dann[i].rost)/2=sredr) then
     writeln('Srednyj rost=',sredr);
    for i:=1 to n do
     if (dann[i].str=s) and ((dann[i].ves+dann[i].ves)/2=sredv) then
     writeln('Srednyj ves=',sredv);
    readln;
  end;

procedure tretya(i,n:integer; dann:array of sportsmen);
 var
     grr:integer;
     re:integer;

  begin

    writeln ('vvedite vozrast: ');
    readln (grr);
    writeln ('vvedite rezuljtat: ');
    readln (re);
    for i:=1 to n do
     if (dann[i].gr=grr) and (dann[i].rez=re) then
     writeln(dann[i].fam,' ');

    readln (grr);

  end;

 var g,i,n:integer;
         dann: array [1..10] of sportsmen;

begin

writeln ('vvedite kol-vo sportsmenov: ');
readln (n);
for i:=1 to n do begin
writeln ('vvedite familiju');
readln (dann[i].fam);
writeln ('vvedite stranu');
readln (dann[i].str);
writeln ('vvedite rezuljtat');
readln (dann[i].rez);
writeln ('vvedite god roghdenija');
readln (dann[i].gr);
writeln ('vvedite rost');
readln (dann[i].rost);
writeln ('vvedite ves');
readln (dann [i].ves);
end;
  repeat;
    writeln('Naghmite nomer esli xotite yznat:');
    writeln('1-luchshij sportsmen dannoj strany');
    writeln('2-srednij rost i ves sportsmenov dannoj strany');
    writeln('3-spisok sportsmenov dannogo vozrasta s rez, ne hughe dannogo');
    writeln('4-exit');
    readln(g);
    case g of
1: pervaya(i,n,dann);
2: vtoraya(i,n,dann);
3: tretya(i,n,dann);
4: Exit;
end;
until g=4;
end.