Разработать и произвести отладку программы, которая задает размер линейного массива, заполняет этот массив случайными целыми числами, выводит список
элементов массива; отсортировать массив по возрастанию

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a.Sort;

 a.Print

end.

var

  k: integer; begin

  read(k);

  case k of

    1..2,12: write('зима');

    3..5: write ('весна');

    6..8 : write ('лето');

    9..11: write ('осень');

  end; end.

у текста, мощностью 64 символа (каждый символ несет 6 бит информации) в 1,2 раза инф. объем больше, чем у текста, мощностью 32 символа (каждый символ несет 5 бит информации).