// Scilab Code Ex16.9: Page-604(2014)
clc; clear;
H0 = 71;    // Hubble cinstant, km/s per Mpc
tau = 1/H0*1e+006*3.26*9.46e+012/3.16e+007;    // The upper limit of the age of the universe, y
printf("\nThe upper limit of the age of the universe = %4.2e y", tau);

// Result
// The upper limit of the age of the universe = 1.37e+010 y