记录编号	75861	评测结果	AAAAA
题目名称	硬币翻转	最终得分	100
用户昵称	TA	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2013-10-29 12:15:25	内存使用	0.00 MiB

var
 n,i,j:shortint;
 a:array[1..100] of shortint;
begin
 assign(input,'coinn.in');
 assign(output,'coinn.out');
 reset(input);
 rewrite(output);
 //while not(eof) do
  //begin
   readln(n);
   writeln(n);
   fillchar(a,sizeof(a),0);
   for i:=1 to n do
    begin
     for j:=1 to n do
      if i=j then
        write(abs(a[j]))
       else
        begin
         a[j]:=not(a[j]);
         write(abs(a[j]));
        end;
     writeln;
    end;
  //end;
 close(input);
 close(output);
end.