 
--> exec('E:\My program EM\6. Lifting machines\6.14.sce', -1)
Force required at the end of lever P=348.32 N