1999年9计算机等级考试二级笔试基础部分和PASCAL语言

next:=___18___；

count:=0；

REPEAT

WHILE NOT (next IN sieve)DO

next:=Succ(next)；

primes:=___19___；

Write(next:1，'')；

count:=count1；

IF count MOD 5=0 THEN Writeln；

j:=next；

WHILE j《=n DO

BEGIN

sieve:=sieve——[j]；

j:=___20___

END

UNTIL sieve=[]

END.