记录编号	451648	评测结果	AAAAA
题目名称	硬币翻转	最终得分	100
用户昵称	Hale	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2017-09-17 23:57:53	内存使用	0.17 MiB

var n,m,i,j:integer;
a:array[0..100] of integer;
begin
assign(input,'coinn.in');
assign(output,'coinn.out');
reset(input);
rewrite(output);
 readln(m);
 writeln(m);
 for i:=1 to m do
 a[i]:=0;
 for i:=1 to m do
  begin
   for j:=1 to m do
   begin
  if i=j then continue;
  a[j]:=1-a[j];
  end;
 for j:=1 to m do
 write(a[j]);
 writeln;
 end;

 close(input);
 close(output);

 end.