setq max while not setq getreal Введите число setq cons setq reverse e

1
2
3
4
5
(setq a '(max))
(while (not (setq b (getreal "\Введите число: ")))
(setq a (cons b a)))
(setq a (reverse a))
(eval a)