TYPE
 T=Record
    Title:String;
   Author:String;
     Year:Word;
   End;

VAR
 Book:Array[1..100] of T;
 i,N,j:Integer;
 BT:String;

BEGIN
 Write('How many books? ');
 Readln(N);
 Writeln('Enter the book data:');
 For i:=1 to N do
  With Book[i] do
   begin
    Writeln('Book N ',i,':');
    Writeln('Title:');
    Readln(Title);
    Writeln('Author:');
    Readln(Author);
    Write('Year of edition: ');
    Readln(Year);
    Writeln;
   end;
 Writeln;
 Writeln('Title of book for search:');
 Readln(BT);
 j:=0;
 For i:=1 to N do
  If Book[i].Title=BT then
   begin
    Inc(j);
    Writeln(j:2,' '+Book[i].Title+' '+Book[i].Author,Book[i].Year:5);
   end;
 Readln
END.