//clc()
W = -2.25*745.7;//W ( work done on the system and 1hp = 745.7W)
Q = -3400;//kJ/h ( Heat transferred to the surrounding )
U = Q*1000/3600 - W;
disp("J/s",U,"Rise in the Internal energy of the system = ")