Определить принадлежность точек области - VB

cls
vanek748:
print"Введите количество точек!"
input n
a=1
if n<5 or n>7 then
print "К-во точек не соответствует условию"
goto vanek748
end if
dim x(n)
dim y(n)
for i=0 to n-1
print "Введите координаты " +a+"-й точки"
input x[i]
input y[i]
a=a+1
next i
for i=0 to n-1
if x[i]<=1 and x[i]>=-1 and y[i]<=1 and y[i]>=0 then
print "----------------------------------"
print "Точка с координатами " + "X=" +x[i]+ " , " + "Y="+y[i]+ " находиться в области"
else
print "----------------------------------"
print "X=" +x[i]+ " , " + "Y="+y[i]+" Вне области!"
end if
next i
print "----------------------------------"
end