const pi=3.1416
sub circle(byval r as single,L as single,a as single,V AS SINGLE)
L=2*pi*r
A=pi*r*r
V=4/3*r*r*r*pi
end su