---

program su;
var
 a,i:integer;
 c:boolean;
begin
while not eof do
begin
 readln(a);
   c:=true;
   for i:=2 to trunc(sqrt(a))do
     if a mod i=0 then
     begin
     c:=false;
     writeln('非質數');
     break
     end;
     if c then writeln('質數');
 end;
end.

运行没问题，但一发送就是错误代码 206

谁能告诉我为什么

十分感谢！

 

---

在伺服器所用的 FreePascal 中，integer 是 16 位元，最大到 32767。這題要改用 longint。 

---

谢了！