关于求1-100之间素数的问题1

  File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help
╔═[■]══════════════════════════════ DFDF.PAS ════════════════════════════1═[↕]═╗
║program dhgd;                                                                 ▲
║const                                                                         ■
║n=100;                                                                        ▒
║var i,k:integer;prime:boolean;                                                ▒
║begin                                                                         ▒
║for i:=2 to n do                                                              ▒
║begin                                                                         ▒
║prime:=true;                                                                  ▒
║for k:=2 to trunc(sqrt(i)) do                                                 ▒
║  if i mod k=0 then                                                           ▒
║  begin                                                                       ▒
║  prime:=false;                                                               ▒
║  break;                                                                      ▒
║  end;                                                                        ▒
║                                                                              ▒
║if prime=true then write(i:5)                                                 ▒
║end;                                                                          ▒
║writeln                                                                       ▒
║end.                                                                          ▒
║                                                                              ▒
║                                                                              ▼
╚══════ 19:21 ════◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►─┘
 F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local menu

 我以为书上加了个1 怎么回事呢?  for k:=2 to trunc(sqrt(i)) +1do   

后面当判定是否是素数是应该要加1的

if k=trunc(sqrt(i))+1 then write(i:5);