Назовите имена столбцов которые находятся рядом со столбцами j, z, ba.

если переменная нужна целая то так:

x: =random(b-a)+a

если можно дробную, то так

x: =(b-a)*random+a

8, 1, 4, 1, 5, 9, 6, 7, 2

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.