Декодируйте зашифрованную информацию ВМСОВНСИВТСОВРСИВНВГ

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
  var Z:=ArrRandom(ReadInteger('n='),1,99);
  Writeln('Массив Z'); Z.Println;
  Writeln('Массив X');
  var X:=Z[1::2].Select(p->p/2).ToArray; Swap(X[0],X[X.Length-1]);
  X.Println;
  Writeln('Массив Y');
  var Y:=Z[::2].Select(p->p/3).ToArray; Swap(Y[0],Y[Y.Length-1]);
  Y.Println
end.

Пример
n= 8
Массив Z
74 17 35 3 33 84 48 39
Массив X
19.5 1.5 42 8.5
Массив Y
16 11.6666666666667 11 24.6666666666667

 Фильтры позволя­ют отбирать записи, которые удовлетворяют заданным усло­виям. Условия отбора записей создаются с использованием операторов сравнения (=, >, < и т. д.).Простой фильтр содержит условие отбора записей толь­ко для\ одного поля. Сложный фильтр содержит несколько условий для различных полей.

Запросы позволяют отобрать те записи, которые удовле­творяют заданным условиям. Запросы, как и фильтры, бы­вают простые и сложные. Простой запрос содержит одно ус­ловие, а сложный запрос содержит несколько условий для различных полей.