(defun % (a b)
    (setq a (abs a))
    (setq b (abs b))
    (if (> b a)(progn (setq tmpA a) (setq a b) (setq b tmpA)))
    (setq res (- a (* (/ a b) b)))
    res
  )
(defun isPrime (n d)
  (if (= d nil) (setq d 2))
  (cond ((> (* d d) n) t)
        ((zerop (% n d)) nil)
        (t (isPrime n (1+ d)))))
(defun c:vvid ( / )
(initget 7)
(setq mas () mas1 ())

(setq i 0)
(initget 7)
(setq v (getint "Vvedit rozmir masyvy"))
(repeat v
    (setq i (+ i 1))
    (setq mas1 (list(getint (strcat "Vvedit  " (itoa i) "
    element spysku: "))))
    (setq mas (append mas mas1))
);repead
  (setq maxEl (nth 0 mas))
  (foreach el mas (if (> el maxEl) (setq maxEl el)))

  (while (not (isPrime maxEl 2))
    (setq maxEl (+ 1 maxEl))
    )
  (princ "Limit prime num is: ")(princ maxEl)

  (setq i 2)


  (while (<= i maxEl)
        (if (isPrime i 2) (progn
                    (setq iArr ())

                (foreach element mas
                    (if (= (% element i) 0) (progn
                                    (setq iArr (append iArr (list element) ) )
                                  )
                      )
                  )
                    (princ (strcat "Pidmasyv z prostym chuslom " (itoa i) " = "))
                    (princ iArr)
                )
      )
    (setq i (1+ i))
    )


(princ "Result masyv ") (princ mas)
  (princ "Max element ") (princ maxEl)
);defun