integer p(10),i,j,seme
logical l(95:110)
seme=123451
do i=95,110
  l(i)=.false.
enddo
i=1
do while(i.le.10)
  p(i)=int(ran(seme)*15+95)
  if(.not.l(p(i)))then
  l(p(i))=.true.
  i=i+1
  endif
enddo
print*,p
end