//clc()
funcprot(0)
kgf = 9.80665;//N
cm = 10^-2;//m
P = kgf/cm^2;
disp("N/m^2",P,"1 kgf/cm^2 = ")
lbf = 32.174;//lb*ft//s^2
lb = 0.4535924;//kg
ft = 0.3048;//m
in = 0.0254;//m
P1 = lbf*lb*ft/in^2;
disp("N/m^2",P1,"1 lbf/in^2 = ")