procedure parse(var str, author, name, year: string);
var i: integer;
begin
  i := pos(' ', str);
  author := copy(str, 1, i - 1);
  delete(str, 1, i);
  i := pos(' ', str);
  name := copy(str, 1, i - 1);
  delete(str, 1, i);
  year := str
end;


var f: text;
    str, author, name, year: string;

begin
  assign(f, 'books.txt');
  reset(f);
  input := f;
  while not eof(f) do
  begin
    readln(str);
    parse(str, author, name, year);
    if name = 'Информатика' then writeln(author, ' ', year);
  end;
  close(f);
end.