Потому что ей это не нужно!
Она и так хорошо справляется ;)
569(9)=5103
26705(16)=427280
а второе я хз:D
Program qq;
var a:array[1..n] of integer;
i,k,s,SA:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0; SA:=0; s:=0;
for i:=1 to N do
If (A[i]mod2=0) and (A[i]mod3<>0) then begin
k:=k+1;
s:=s+A[i];
end;
SA:=s/k;
writeln(k, s, sa);
<span>end.</span>