为什么我会收到NZEC错误？

Question

我在Pascal工作，我不明白为什么我在提交问题时遇到NZEC（非零退出代码）错误。在我的电脑上，它完美的工作。你能给我你的意见吗？

program super_factor_sum; 
var k,i,j,s:longint; f,g:text; 

function prim(x:integer):boolean; var d:longint; 
begin 
prim:=true; 
for d:=2 to x div 2 do if x mod d=0 then prim:=false; 
end; 

begin assign(f,'input.txt'); reset(f); assign(g,'output.txt'); rewrite(g); 
while not eof(f) do 
begin readln(f,k); s:=0; i:=2; 
     while (k<>1) or (i<=k) do 
      begin if (prim(i)) and (k mod i=0) then 
         begin j:=0; 
          repeat k:=k div i; j:=j+1; 
          until k mod i<>0; 
          s:=s+i*j; i:=i+1; 
         end 
          else i:=i+1; 
      end; 
     write(s); writeln(g,s); 
end; 
close(f); close(g); 
end. 

Answer 1

Avoid NZEC error in Erlang in SPOJ

“模块的名称总是进行测试和切入点应该是main函数例如，编译后应该为试运行：main（）的”