setq chislo 5 setq step 3 setq copystep 1 (defun stepen(x) (cond ((= step copystep) (princ "Result = ") chislo) (t (setq copystep (+ copystep 1)) (setq chislo (* chislo chislo)) (stepen x)) ) )