Составте программу которая превращает строку "моя Беларусь" в "моя родина Беларусь".

1. Когда знаешь не хуже учителя, а считать символы лень// PascalABC.NET 3.2, сборка 1338 от 16.11.2016begin  var a:='моя Беларусь'.ToWords;  Writeln(a[0]+' родина '+a[1])end.2. Когда знаешь кое-что в Паскале, а считать символы леньconst  s='моя Беларусь';var  i:integer;begin  i:=Pos(' ',s);  Writeln(Copy(s,1,i),'родина ',Copy(s,i+1,Length(s)-i))end.3. Когда не знаешь почти ничегоconst  s='моя Беларусь';begin  Writeln(Copy(s,1,4),'родина ',Copy(s,5,8))end.