[Leito]

гы, да вы гоните
вот у тя массив

dim k(15,2)

e=0
while e<>5
n=rand(15)
m=rand(2)
if k(n,m)=0
e=e+1
k(n,m)=1
positionentity aptechka,n,0,m
end if
wend