s = 19107012
T = s Mod 100

Avogadro_number = 6 * 10 ^ 23
'

' For Magnesium = Mg:
If T = 12 Then atomic_weight = 0.024: density = 1600: GoTo 1

' For Phosphorus = P:
If T = 15 Then atomic_weight = 0.031: density = 1820: GoTo 1

' For Sulfur = S:
If T = 16 Then atomic_weight = 0.032: density = 2000: GoTo 1

' For Chlorine = Cl:
If T = 17 Then atomic_weight = 0.035: density = 3.2: GoTo 1

' For Argon = Ar:
If T = 18 Then atomic_weight = 0.04: density = 1.8: GoTo 1

' For Patassium = K:
If T = 19 Then atomic_weight = 0.039: density = 890: GoTo 1


' For Titenium = Ti:
If T = 22 Then atomic_weight = 0.048: density = 4506: GoTo 1


' For Manganese = Mn:
If T = 25 Then atomic_weight = 0.055: density = 7430: GoTo 1


' For Iron = Fe:
If T = 26 Then atomic_weight = 0.056: density = 7874: GoTo 1


' For copper = Cu:
If T = 29 Then atomic_weight = 0.064: density = 9000: GoTo 1

' For Bromine = Br:
If T = 35 Then atomic_weight = 0.08: density = 3119: GoTo 1
'


MsgBox "You must find data for your T"

GoTo 2

'
1 distance_between_particles = (density * Avogadro_number / atomic_weight) ^ (-1 / 3)
MsgBox distance_between_particles

2 your_data = is_missing