clc
clear
//page number 470
//Input data 
T=300;//The given temperature in K 
R=8.31;//Universal gas constant in J/mole-K 

//Calculations 
U=(3/2)*R*T;//The total random kinetic energy of one gram mole of oxygen in J 

//Output 
printf('The total random kinetic energy of one gram mole of oxygen is U = %3.0f J ',U)