 
--> exec('E:\My program EM\8. Virtual work\8.13.sce', -1)
The required force is P=1071.38 N