delphi语法基础--集合类型

小数next，放入素数集合中 }j:=next;       while j<=n do       begin sieve:= sieve-[j]; j:=j+next end  { 将next的倍数从筛中筛去 }  until sieve=[];                              for next:=2 to n do    if next in primes then write(next:5);      { 输出素数集合中的所有元素}writelnend.