Дан массив а1,а2,…..,аn выбрать из них отрицательные элементы — QBasic(Бейсик)

cls 
input "n"; n
dim a(n)
for i=1 to n
input a(i)
next i
for i = 1 to n
if a(i) < 0 then ? a(i)
next i