// Initilization of variables
W=1000 // N // weight to be raised
// Calculations
// From the Principle of virtual work,
P=W/2 // N
// Results
clc
printf('The value of force (i.e P) that can hold the system in equilibrium is %f N \n',P)