#pas
var

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

begin

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

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