Помогите нарисовать конус в Pascal ABC с заданными с клавиатуры параметрами.

## uses Graph3D;
println('* Центр основания *');
var p := new Point3D(readreal('Введите X:'), readreal('Введите Y:'), readreal('Введите Z:'));
var h := readreal('Введите значение высоты:');
var r := readreal('Введите значение радиуса:');
Cone(p, h, r);