too many or too few lines

var i,n,times,t:longint;
    a:array[1..11] of boolean;
    b:array[-10..10] of boolean;
    c:array[2..20] of boolean;
    x:array[1..11] of longint;
procedure print;
var i:longint;
begin
    inc(t);
    if t=3 then halt;
    for i:=1 to n do
     write(x[i],' ');
    writeln;
end;
procedure search(k:longint);
var i:longint;
begin
    if k>n then
    begin
      inc(times);
      if t<=3 then print;
      exit;
    end;
    for i:=1 to n do
    if not a[i] and not b[k-i] and not c[k+i] then
    begin
      x[k]:=i;
      a[i]:=true;
      b[k-i]:=true;
      c[k+i]:=true;
      search(k+1);
      a[i]:=false;
      b[k-i]:=false;
      c[k+i]:=false;
    end;
end;
begin
    readln(n);
   search(1);
   writeln(times);
end.