Только 4. язык программирования - паскаль

Представь себе одну колею. посредине отходит тупик на 11 вагонов. по краям два поезда. 1) левый проезжает вперед и задком заходит в тупик, оставляя там 11 вагонов. потом выезжает и возвращается на место - влево. 2) правый подъезжает к вагонам и прицепляет к себе спереди паровоза (у паровоза "зад - перед" одно и то же) и оттаскивает на место вправо. 3) левый опять протягивает вперед и задком полностью заезжает в тупик. 4) правый двигается по колее, занимая место слева. он теперь левый. 5) левый выезжает и занимает место справа. он теперь правый. 6) левый протягивает назад и заталкивает в тупик 11 вагонов не своих. выезжает обратно. 7) правый подцепляет свои вагоны и каждый едет дальше! все это справедливо, если в тупик можно заехать с правой стороны. если с левой - картина меняется на зеркальную.

Var  a: array[1..100] of integer;     i, n: integer;     p: integer;       begin    randomize;     writeln('massiv: ');   readln(n);     for i : = 1 to n do      a[i] : = random(10) - 5;     writeln('исходный массив: ');   for i : = 1 to n do    write(a[i], ' ');     p: =1;     for i : = 1 to n do        if (a[i]> 0) and (i mod 2=0) then p: =p*a[i];         writeln('произведение   =',p);   readln.     end.