clc
//initialisation of variables
Tp=1620//R
Hp=-1257872-851436+310537+1473732 
Tp1=1800//R
HP1=-1239408-835740+366337+1735616
T=1733 //R
HR=107532//Btu/lb mole
//CALCULATIONS
H=-HR//
printf('The adiabatic flame temperature=% f Btu/lb mole',H)