比赛代码 - COGS

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

显示代码纯文本

program tianshu(input,output);
 const
  maxn=10;
var
 i,j,k,n:longint;

   a:array [1..maxn,1..maxn] of longint;
begin
 assign(input,'tianshu.in');
 assign(output,'tianshu.out');
 reset(input);
 rewrite(output);
 readln(n);
  if n=1 then
   writeln('NO');
   if n=3 then writeln('NO');
   if n=2 then          begin
    writeln('1',' ','2');
    writeln('4',' ','3');
    end;
     if n=4 then
      begin
       writeln('1',' ','2',' ','11',' ','12');
       writeln('4',' ','9',' ','8',' ','5');
       writeln('7',' ','10',' ','3',' ','14');
       writeln('6',' ','13',' ','16',' ','15');
       end;
         close(output);
 close(input);        end.