 
--> exec('E:\My program EM\5. Friction\5.8.sce', -1)
The required force is P=1856.40 N