Nhờ các bác sửa dùm code:
(defun cacul()
(setq diem nil p1 nil p2 nil z1 nil z2 nil)
(setvar "osmode" 551)
(setq p1 (getpoint"\nDiem dau:"))
(setvar "osmode" 0)
z1 (getreal"\nCao do...