请教大牛们几道阅读程序写结果的题目吧。。。。。。。。。。。。。。

1---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|

质数

Var I,j,s,sp1:integer;

p:boolean;

a :array[1..10] of integer;

begin

sp1:=1;a[1]:=2;j:=2:

while sp1