// В коротких подпрограммах можно использовать подключение модулей
##
uses Graph3D;
Sphere(Origin,1);