sample02.PAS

{* Перестановка букв в слове *}

Unit SAMPLE02;
Interface
Implementation
Begin
 writeln('
Перестановка букв в слове (циклический сдвиг вправо)
'
);
End.

Program pas;

Uses sample02.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s : String;
  i : integer;
  j : integer;
  n : integer;
Begin
  readln(s);
  s := s[length(s)] + copy(s, 1, length(s) - 1);
  writeln(s);
End.