program z1420;

const n=28;

type rec=record

surname:string;

name:string;

address:string;

school:integer;

clas:1..11;

end;

list=array[1..n] of rec;

TArr=Array[1..n,1..3] of string;

Var A:list;

m:tarr;

s:integer;

k:byte;

procedure Init(var x:list);

var f:text;

k:byte;

Begin

Assign(f,'c:\Input.txt');

reset(f);

for k:=1 to n do

With x[k] do begin

Readln(f,name);

readln(f,k);

End;

close(f);

end;

procedure Solve(x:list; s:integer;

var y:TArr;var k:Byte);

Var i:Byte;

Begin

k:=0;

for i :=1 to n do

if (x[i].school=s) and (x[i].clas in [10..11])

then begin

Inc (k);

y[k,1]:=x[i].surname;

y[k,2]:=x[i].name;

y[k,3]:=x[i].address;

end;

end;

procedure Print(x:TArr; k:Byte);

Var i,j: byte;

Begin

for i:=1 to k do begin

for j:=1 to 3 do

Write(x[i,j]:10);

Writeln;End;

end;

Begin

Init(A);

writeln('vvedite nomer shkoli:');

Readln(s);

solve (a,s,m,k);

Print(m,k);

Readln;

end.