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.
Результат
Ехал Ваню на коне
Вёл собака на ремне
А старушку в это время
Мыла фикус на окне
