clc;
F=2000;      //force in lb
s=80;     //distance inft
W=F*s;   //calculating weight
disp(W,"Weight in ft.lb = ");  //displaying result
disp(W,"Potential Energy in ft.lb = ");   //displaying result