Антон увлекся кодировкой и закодировал слово с поддержкою букв русского алфавита.В

Для решения этой задачи можно воспользоваться простой программкой, которая делает все сдвиги:

PascalABC.NET 3.4.2, сборка 1933 от 01.04.2019

begin

 var alph := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'.ToCharArray;

 var w := ReadlnString;

 for var i := 1 to 8 do

   for var x := 1 to w.Length do  

   begin

     var ind := alph.IndexOf(w[x]);

     w[x] := alph[ind + 1 = 33 ? 0 : ind + 1];

   end;

 w.Println

end.

Итог в прибавленьи.

Ответ: МОНОПОД