CLS
DIM A(1 TO 999)

DO
   i = i + 1
   INPUT A(i)
LOOP UNTIL A(i) = 0

FOR j = i TO 1 STEP -1
   PRINT A(j);
NEXT
END