Type
  rec=record
   FIO:string[30];
   Vozr:integer;
   adress:string[30];
  end;
 mas=array[1..10] of rec;

Var
 f:text;
 e1,j,Min_age,k:integer;
 m:mas;

Procedure inp(var a:mas;var n:integer);{Процедура ввода}
var i:integer;
begin
 i:=0;
 Repeat
  Inc(i);
  readln(f,a[i].FIO);
  readln(f,a[i].Vozr);
  readln(f,a[i].adress);
 Until EoF(f);
 n:=i;
end;

Begin
 assign(f,'file.txt');
 reset(f);
 inp(m,e1);
 close(f);
 Min_age:=100;
 for j:=1 to e1 do
  With m[j] do
   if (Vozr<Min_age) and (Vozr>=20) and (Vozr<=30) then
    begin
     k:=j;
     Min_Age:=Vozr;
    end;
 Writeln('Result:');
 Writeln(m[k].FIO);
 Writeln(m[k].Vozr);
 Writeln(m[k].adress);
 Readln
End.