比赛代码 - COGS

比赛	NOIP_3	评测结果	AWAAWWWWWA
题目名称	填数	最终得分	40
用户昵称	bly1991	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-10-19 11:37:38

显示代码纯文本

program bly(input,output);
var
  n:integer;
  f1,f2:text;
begin
  assign(f1,'tianshu.in');
  reset(f1);
  readln(f1,n);
  close(f1);

  assign(f2,'tianshu.out');
  rewrite(f2);
  if n=1 then writeln(f2,'NO');
  if n=2 then begin writeln(f2,'1','2'); writeln(f2,'4','3'); end;
  if n=3 then writeln(f2,'NO');
  if n=4 then begin
    writeln(f2,'1','2','11','12'); writeln(f2,'4','9','8','5');
    writeln(f2,'7','10','3','14'); writeln(f2,'6','13','16','15');
  end;
  close(f2);
end.