Ma poate ajuta cineva sa-mi dau seama unde gresesc...va rooog mult
Cod:

Cod:

var
f,g: text;
a: array[0..99] of integer;
i,s,uc,j,x: longint;
t,n:  integer;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
for i:=0 to 99 do
a[i]:=0;
for i:=0 to 99 do
   begin
     uc:=i*i;
     uc:=uc*i;
     uc:=uc*i;
     uc:=uc mod 10;
     if i mod 4=0 then a[i]:=uc
                  else if i mod 4=1 then a[i]:=(uc*(i mod 10)) mod 10
                                    else if i mod 4=2 then
                                             a[i]:=uc*((i*i) mod 10) mod 10
                                          else begin x:=(i*i*i) mod 10;
                                             a[i]:=(uc*x)  mod 10; end;
                  end;
s:=0;
for i:= 0 to 99 do begin
    a[i]:=(s+a[i]) mod 10;
    s:=a[i];
   end;
   readln(f,t);
for j:=1 to t do begin
   readln(f,n);
   if n>=100 then writeln(g,a[n mod 100])
             else writeln(g,a[n]);
   end;
close(f);
close(g);
end.

[edit] e mai elegant sa folosesti tag-ul "[ code ]" (fara spatii) cand postezi cod

poti intra pe http://infoarena.ro/documentatie/evaluator sa citesti mesaje de evaluare 

...multumesc mult

Am si eu o intrebare...adevarul este ca sunt cam noua pe aici si as dori sa-mi spuneti si mie, daca se poate, de ce imi apare "Non-exist status!" ...Care ar putea fi cauzele? Multumesc anticipat