begin assign(output,'carrier.out'); rewrite(output); writeln(7); writeln('1 2 4 5 1 3 6 1'); close(output); end.