in pascal din cate stiu eu daca iti da o eroare programul iti returneaza o valoare diferita de 0... poate ai sigsegv sau imparti la 0...

uite...sursa... n-am impartire la 0...

Cod:

program uc;
 var
    f,g:text;
    n,i,j,k,s,p:longint;
    t:word;
begin
 assign(f,'cifra.in');
 reset(f);
  read(f,n);
          assign(g,'cifra.out');
          rewrite(g);
          for k:=1 to n do
           begin
                readln(f,t);
                s:=0;
            for i:=1 to t do
             begin
                   p:=1;
                    for j:=1 to i do
                     p:=p*i;
                    s:=s+p;
                    s:=s mod 10;
             end;
            writeln(g,s);
           end;
  close(f);
 close(g);
end.

P.S. AM INVERSAT T CU N ...

de ce imi arata la mesaj Non-zero exit status,imi da 0 puncte si cand ii dau eu teste imi da bine?