Cls
input n
dim a(n)
s=0
for i=1 to n
input a(i)
next i
for i=1 to n
if a(i)>0 then s=s+1
next i
if s>0 then
p=1:t=0
dim b(s)
for i=1 to s
for j=p to n
t=t+1
if a(j)>0 then b(i)=a(j) goto 1
next j
1: p=t
next i
for i=1 to s
for j=1 to s
if b(i) next j
next i
for i=1 to s
print b(i);
next i
end if