// PascalABC.NET 3.2, сборка 1456 от 26.05.2017
// Внимание! Если программа не работает, обновите версию!
№1
begin
var s:=ReadlnString;
s:=s[s.Length-2:s.Length+1]+s[:s.Length-2];
s.Println
end.
Пример
Моя строка
окаМоя стр
№2
begin
var s:=ReadlnString;
s:=s.ToCharArray.Where((x,i)->i.IsOdd).JoinIntoString('');
s.Println
end.
Пример
Тестовая строка
етвясрк