#pas
var

x,y: array of integer;
a,z: array of string;
m,ring,k,rings:integer;

begin

read(rings);//считываем кольца

for ring:=1 to rings do
begin;m:=1;
 while (m/(6*ring))<=0.25 do
   k:=3*ring*ring-3*ring;   //сумма последовательности.
 begin;
   if (m/(6*ring))<=(1/(ring+1)) then
   begin;        
   a[k+m]:=z[k+m];          //считываем название.
   y[k+m]:=-15-24*ring;
   x[k+m]:=14+14*(ring-m);
    y[k+3*ring+m]:=-y[k+m];
    x[k+3*ring+m]:=-x[k+m];
    a[k+3*ring+m]:=z[k+3*ring+m];
   end
    else;
    begin;
     a[k+m]:=z[k+m];
     y[k+m]:=-15-24*(2*ring-m+1);
     x[k+m]:=14+14*(ring-m);
      y[k+3*ring+m]:=-y[k+m];
      x[k+3*ring+m]:=-x[k+m];
      a[k+3*ring+m]:=z[k+3*ring+m];
       y[k+3*ring-m]:=-y[k+m];
       x[k+3*ring-m]:=x[k+m];
       a[k+3*ring-m]:=z[k+3*ring-m];
        y[k+6*ring-m]:=y[k+m];
        x[k+6*ring-m]:=-x[k+m];
        a[k+6*ring-m]:=z[k+6*ring-m];
    end;
 m:=m+1;
 end;
end;
//здесь вывести массивы
end.