Преобразовать массив так, чтобы получилось последовательность вида: S1,s21,S22,s2,s23,s24,......,s60

program Arranger;
 
const
    k1 = 20;
 
var
    S1: array [1 .. k1*3] of Real;
 
{ Поменять две переменные местами }
procedure swap(var a: Real; var b: Real);
var
    t: Real;
begin
    t := a;
    a := b;
    b := t;
end;
 
{ Инициализировать массив случайными числами }
procedure init();
var
    i: Integer;
begin
    for i := 1 to length(S1) do
        S1[i] := random() * 128;
        { Для наглядности работы программы
        можно заменить случайное число на i }
end;
 
{ Вывести массив чисел на экран }
procedure print();
var
    i: Integer;
begin
    write('[');
    for i := 1 to length(S1) - 1 do
        write(S1[i]:0:2, ', ');
    i := i + 1;
    writeln(S1[i]:0:2, ']')
end;
 
{ Поменять элементы местами согласно алгоритму }
procedure arrange;
    procedure _arrange(k, s: Integer);
        { Вспомогательная процедура }
        procedure move(s, p: Integer);
        begin
            if p = 4 then
            begin
                swap(S1[p-1+s], S1[p+s]);
                swap(S1[p+1+s], S1[p+s]);
            end
            else if p > 4 then
            begin
                swap(S1[p-2+s], S1[p+s]);
                swap(S1[p-1+s], S1[p+1+s]);
                { Хвостовая рекурсия }
                move(s, p - 2);
            end;
        end;
    begin
        if k > 1 then
        begin
            swap(S1[1+0+s], S1[k+0+s]);
            swap(S1[1+1+s], S1[k+1+s]);
            move(s, k);
            { Хвостовая рекурсия }
            _arrange(k - 1, s + 3);
        end;
    end;
begin
    _arrange(k1, 1);
end;
 
begin
    randomize;
    init;
    writeln('Сгенерированный массив: ');
    print;
    arrange;
    writeln('Массив после преобразования: ');
    print;
end.

program Arranger;
const
    n=60;
    k1=20;
 
var
    S1: array [1 .. n] of integer;
{ Поменять две переменные местами }
procedure swap(var a,b:integer);
var t:integer;
begin
    t := a;
    a := b;
    b := t;
end;
 
{ Инициализировать массив случайными числами }
procedure init;
var
    i: Integer;
begin
    for i := 1 to n do
    S1[i] := random(100);
        { Для наглядности работы программы
        можно заменить случайное число на i }
end;
 
{ Вывести массив чисел на экран }
procedure print;
var
    i: Integer;
begin
for i := 1 to n do
write(S1[i]:4);
writeln
end;
 
{ Поменять элементы местами согласно алгоритму }
procedure arrange;
    procedure _arrange(k, s: Integer);
        { Вспомогательная процедура }
        procedure move(s, p: Integer);
        begin
            if p = 4 then
            begin
                swap(S1[p-1+s], S1[p+s]);
                swap(S1[p+1+s], S1[p+s]);
            end
            else if p > 4 then
            begin
                swap(S1[p-2+s], S1[p+s]);
                swap(S1[p-1+s], S1[p+1+s]);
                { Хвостовая рекурсия }
                move(s, p - 2);
            end;
        end;
    begin
        if k > 1 then
        begin
            swap(S1[1+0+s], S1[k+0+s]);
            swap(S1[1+1+s], S1[k+1+s]);
            move(s, k);
            { Хвостовая рекурсия }
            _arrange(k - 1, s + 3);
        end;
    end;
begin
    _arrange(k1, 1);
end;
 
begin
    randomize;
    init;
    writeln('Сгенерированный массив: ');
    print;
    arrange;
    writeln('Массив после преобразования: ');
    print;
end.