 
--> exec('E:\My program EM\16. Work energy method\16.9.sce', -1)

Thus P=1383.389 N