begin
  var linenum := 4;
  ReadLines('_a.pas').Skip(linenum-1).First.Print;
end.