;;
;;  sumowanie i zliczanie liczb rzeczywistych z wejścia
;;  wejście: dowolny skończony ciąg danych rzeczywistych, po jednej w każdym wierszu
;;  wyjście: liczba elementów ciągu i suma elementów ciągu rozdzielone znakiem tabulacji
;;  ograniczenia: dane wejściowe muszą być liczbami; wartość 0 kończy sumowanie
;;

(setq n 0)
(setq suma 0)
(setq elem (read))

(do ()
    ((eq elem 0))
    (setq suma (+ suma elem))
    (setq n (+ 1 n))
    (setq elem (read))
)

(format t "Ilosc	Suma
" ) 
(format t "~D	~F
" n suma)