Add(MainForm,2953706,112,112)
{
 Width=290
 Height=292
 Caption="О Б Ъ Ё М"
 Point(onClose)
 link(onCreate,11295149:doLoad,[])
 link(onClose,3891818:doEnum,[(155,139)(155,202)])
}
Add(StringTable,11295149,182,105)
{
 Left=5
 Top=5
 Width=265
 Height=240
 Font=[Courier New,11,1,0,204]
 FileName="dvs.ini"
 Columns=#14:Двигатель =110|17:Объём см.куб.=130|
 Grid=0
 ColumnClick=1
 StaticColumn=0
 Point(FileName)
 Point(doSort)
 Point(doSortDigit)
 Point(onDblClick)
 Point(onColumnClick)
 Point(Strings)
 link(onDblClick,200931:doData,[])
 link(onColumnClick,11295149:doSortDigit,[(223,125)(223,166)(170,166)(170,153)])
}
Add(DoData,200931,252,112)
{
 Data=String(;)
 link(onEventData,11295149:doAdd,[(297,118)(297,94)(170,94)(170,111)])
}
Add(ArrayEnum,3891818,231,196)
{
 link(onItem,4219608:doCompare,[])
 link(onEndEnum,11295149:doSort,[(276,209)(276,244)(163,244)(163,146)])
 link(Array,11295149:Strings,[(237,176)(202,176)])
}
Add(If_else,4219608,287,196)
{
 Op1=String(;)
 link(onTrue,2910356:doData,[])
}
Add(DoData,2910356,343,196)
{
 link(onEventData,11295149:doDelete,[(383,202)(383,86)(163,86)(163,125)])
 link(Data,3891818:Index,[(349,184)(332,184)(332,238)(244,238)])
}

#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.