program p103_14;{9}
uses crt;
const nm=100;
type Addr=record
      Strada:string[20];
      Nr:word;
     end;
     Abon=record
      Adr:Addr;
      N,P,Tel:String[20];
     end;
var List:array[1..nm]of Abon;
    n,i:1..nm;
    s:string[20];
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do with List[i] do begin
 writeln(i,')');
 write('Numele: ');readln(N);
 write('Prenumele: ');readln(P);
 write('Tel: ');readln(Tel);
 write('Strada: ');readln(adr.strada);
 write('Nr. casei: ');readln(adr.Nr);
end;
ClrScr;
Writeln('a) Lista abonatilor al caror tel. incepe cu "47":');
for i:=1 to n do with list[i] do if Copy(Tel,1,2)='47' then writeln(N,' ',P);writeln;
write('b) Numele strazii? ');readln(S);
for i:=1 to n do with list[i] do if S=Adr.Strada then writeln(N,' ',P,' ', tel);writeln;
write('c) Numele abonatului? ');readln(S);
for i:=1 to n do with list[i] do if S=N then writeln(P,' ', tel);writeln;

readkey;
end.