Правельный ответ: 1)лето\сирень
13,31,15,51,57,75,53,35,71,17,73,37.
Var num : integer;
....
num := arr[0];
for i:=0 to n-1 do arr[i] := arr[i+1];
arr[n] := num;
Такие получились преобразования: НЕГА - ННЕГА - ММДВЯ - ММДВЯП - ЛЛГБЮО. Ответ - ЛЛГБЮО.
Как-то так это все должно выглядеть (Если я еще не забыла ГОСТы)