r=10;
ro=5.5*10^(-8);
l=3*10^(-2);
a=ro*l/r;
d=sqrt(4*a/%pi);
disp("the diameter (in mm) is"); disp(d*10^3);