a:='Москва-сердце России'; b:=copy\(a,1,6\); c:=copy\(a,8,13\); e:=c + '-' + b; writeln\(e\);