//23.3
p=30//in cm
f=10//in cm
x=(1/f)-(1/p)
q=1/x

M=-(q/p)
disp("part a")
disp(q,"The position of final image in cm=")
disp(M,"The magnification=")
p=5//in cm
f=10//in cm
x=(1/f)-(1/p)
q=1/x
M=-(q/p)
disp("part b")
disp(q,"The position of final image in cm=")
disp(M,"The magnification=")