Ввести одномерный массив A, в котором число частей кратно трём, вывести

program zz1;

const n = 30; // задаем количество чисел в массиве

var  i, k, j, p:integer; // задаем переменные целого типа

m:array [1..n] of integer;

a,b,c:array[1..n div 3] of integer;

begin

for i:=1 to n do  // получаем n чисел случайных и записываем их в массив

m[i]:=random(51);

k:=n div 3;

for i:=1 to n do  // выводим приобретенный массив на экран

write(m[i], );

writeln;    // перебегаем на новейшую строчку для вывода ответа

for i := 1 to k do

a[i]:=m[i];

for i := 1 to k-1 do

       for j := 1 to k-i do

           if a[j] gt; a[j+1] then begin

               p := a[j];

               a[j] := a[j+1];

               a[j+1] := p;

           end;

writeln( 1-ая часть массива:);           

for i:=1 to k do  // выводим приобретенный массив на экран

write(a[i], );

writeln;    // переходим на новейшую строчку для вывода ответа

for i := 1 to k do

b[i]:=m[i+k];

for i := 1 to k-1 do

       for j := 1 to k-i do

           if b[j] gt; b[j+1] then begin

               p := b[j];

               b[j] := b[j+1];

               b[j+1] := p;

           end;

writeln( Вторая часть массива:);           

for i:=1 to k do  // выводим полученный массив на экран

write(b[i], );

writeln;    // переходим на новую строчку для вывода ответа

for i := 1 to k do

c[i]:=m[i+2*k];

for i := 1 to k-1 do

       for j := 1 to k-i do

           if c[j] gt; c[j+1] then begin

               p := c[j];

               c[j] := c[j+1];

               c[j+1] := p;

           end;

writeln( 3-я часть массива:);           

for i:=1 to k do  // выводим приобретенный массив на экран

write(c[i], );

end.