clc
//Chapter1
//Ex_1.3
//Given
R=8.314 // in J/mol/K
M_at=63.6 //in g/mol
//Acc. to Dulong -Petit rule Cm=3R for NA atoms
C_gram=3*R/M_at 
disp(C_gram,"Heat Capacity of copper per unit gram in J/g/K is")