program sushu(input,output);vari,j:integer;a:boolean;begini:=2;while i<=100 do begin a:=true; j:=2;//j:=2写在这个while 里面 while j begin if i mod j =0 then a:=false; j:=j+1; end; if a then write(i:3); i:=i+1; end;end.
