На PascalABC даю 80 баллов

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

procedure wcSwap(var s:string);
begin
  var n:=s.Length;
  if n>1 then Swap(s[1],s[n])
end;

begin
  var a:=ReadlnString.ToWords;
  for var i:=0 to a.Length-1 do wcSwap(a[i]);
  a.JoinIntoString(' ').Println
end.

Пример
А роза упала на лапу Азора
А аозр апалу ан уапл азорА

http://sauna.ru

Внешние ссылки запрещены.