(defun Kvadrat()

  (setq GoreLevoPt (getpoint "Odaberite gornju levu tacku kvadrata: "))
  (setq DuzinaStranice (getint "Unesite duzinu stranice kvadrata: "))

  (if (> DuzinaStranice 0)
  (
  (setq GoreLevoX (car GoreLevoPt))
  (setq GoreLevoY (cadr GoreLevoPt))

  (command "rectang" GoreLevoPt (list (+ GoreLevoX DuzinaStranice) (- GoreLevoY DuzinaStranice)))
  )

  (alert "Stranica kvadrata mora biti veca od nule!")
  )
)