Languages spoken on the Belt and Road Initiative (BRI) countries

$url="https://www.topchinatravel.com/silk-road/one-belt-one-road.htm";

$text="Starting country: China
 

Other countries: Mongolia, Russia
 

8 countries in South Asia: India, Pakistan, Bangladesh, Sri Lanka, Afghan, Nepal, Maldives, Bhutan
 

11 countries in southeast Asia: Mongolia, Russia, Indonesia, Thailand, Malaysia, Vietnam, Singapore, Philippines, Myanmar, Cambodia, Laos, Brunei, east Timor

5 Central Asia countries: Kazakhsta, Uzbekistan, Turkmenistan, Kyrghyzstan, Tajikista
   
16 countries of west Asia and north Africa: Saudi Arabia, UAE, Oman, Iran, Turkey, Israel, Egypt, Kuwait, Iraq, Katar, Jordan, Lebanon, Bahrain, Yemen, Syria, Palestine
 

16 central and eastern European countries: Poland, Rumania, Czech Republic, Slovakia, Bulgaria, Hungary, Latvia, Lithuania, Slovenia, Estonia, Croatia, Albania, Serbia, Macedonia, Bosnia and Herzegovina
                    
The other six states of the CIS: Ukraine, Azerbaijan, Armenia, Belarus, Georgia, Moldova

";

$countryNames=Composition[
DeleteDuplicates,
Flatten,
StringTrim/@#&,
StringSplit[#,","]&,
StringTrim,
StringCases[#,RegularExpression[".+:(.*)"]-> "$1"]&
][$text]

$countries=Interpreter["Country"][#]&/@$countryNames

1

EntityValue[Entity["Country","China"],"Languages"]

data[1]=Composition[
#-> Map[
Composition[
With[{pop=#[[1]]},(#[[1]]-> (#[[2]]*pop))&/@#[[2]]]&,
EntityValue[#,{"Population","LanguagesFractions"}]&
][#]&,
#]&
][$countries]

EntityValue[Entity["Country","China"],"Languages"]