---

program SwapParts;

var
  s, part1, part2: string;
  dashPos: integer;

begin
  // Ввод исходного слова
  Write('Введите слово с дефисом: ');
  Readln(s);
  
  // Находим позицию дефиса в строке
  dashPos := Pos('-', s);
  
  // Проверяем, есть ли дефис в строке
  if dashPos > 0 then
  begin
    // Получаем часть слова ДО дефиса
    part1 := Copy(s, 1, dashPos - 1);
    
    // Получаем часть слова ПОСЛЕ дефиса
    part2 := Copy(s, dashPos + 1, Length(s) - dashPos);
    
    // Выводим результат (меняем части местами)
    Writeln('Результат: ', part2, '-', part1);
  end
  else
  begin
    Writeln('Ошибка: дефис в слове не найден!');
  end;
end.