На ленте машины поста расположен массив из 2n ячеек. составить программу, по которой машина поста раздвинет на расстояние в одну ячейку две половины данного массива.
(только именно в виде действий машины поста)

галя,толя,миша,лена,вася

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.

сначала определяем к-во символов в каждой  строке

1-1 2-3 3-7 4-15 5-31 6-63 7-127

7-я строка имеет 127 символов и состоит из символа g к которому слева добавлено

две 6-х строки, определяем номера начала и конца каждой строки

6(1-63)  6(64-126)  g(127)

видим что нужные символы во 2-й 6-й строке

6-я строка состоит из символа f к которому слева добавлено

две 5-х строки, определяем номера начала и конца каждой строки

5(64-94) 5(95-125) f(126)

нужные  символы во 2-й 5-й строке

5-я строка состоит из символа e к которому слева добавлено

две 4-х строки, определяем номера начала и конца каждой строки

4(95-109) 4(110-124) e(125)

и вот мы наконец добрались до уже известной 4-й строки и знаем номера символов в ней, 

aabaab c(116)  a(117) a(118) b(119) a(120) a(121) b(122) c(123) d(124)

таким образом нужные символы caabaa

алгоритм решения такой разбиваем строки на подстроки и узнаем номера начала и конца каждой, пока не дойдем до уже известной строки