//clc()
funcprot(0)
ft = 0.3048;//m
lb = 0.4536;//kg
P = ft*lb;
disp("N",P,"1 poundal is 1 ft*lb/s^2 = ")