Question

Помогите переделать программу. Чтобы получилось:
"Ехал Ваня на коне
Вел сабаку на ремне
А старушка в это время
Мыла фикус на окне"
Пожайлуста! Не обязательно делать правильные окончания.

Answer 1

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

begin
  var a:='Ехал фикус на коне';
  var b:='Вёл старушку на ремне';
  var c:='А собака в это время';
  var d:='Мыла Ваню на окне';
  var m1:=a.ToWords;
  var m2:=d.ToWords;
  Swap(m1[1],m2[1]);
  a:=m1.JoinIntoString;
  d:=m2.JoinIntoString;
  m1:=b.ToWords;
  m2:=c.ToWords;
  Swap(m1[1],m2[1]);
  b:=m1.JoinIntoString;
  c:=m2.JoinIntoString;
  Writeln(a,NewLine,b,NewLine,c,NewLine,d)
end.

Результат
Ехал Ваню на коне
Вёл собака на ремне
А старушку в это время
Мыла фикус на окне