用pascal语言求100以内的质数

用pascal语言求100以内的质数program oo;vari,j:integer;f:boolean;beginfor i:=1 to 100 dobeginf:=true;for j:=2 to trunc(sqrt(i))+1 doif i mod j=0 then begin f:=false;end;if f=true thenwrite(i:4);end;readln;end.for j:=2 to trunc(sqrt(i))+1 do截尾函数后为什么要加1?