Составить задачу для подсчета суммы

Сделал все! ) поставь наилучшее! 1)var a: array [0..5] of integer;     i,j: integer; begin  randomize;   j: =0; for i: =0 to 5 do   a[i]: =random(100); for i: =0 to 5 do   if a[i] mod 3 =0 then  inc(j); writeln(j); readln; 2)var a: array [0..5] of integer;     i,j: integer; begin   randomize;   j: =0; for i: =0 to 5 do  a[i]: =random(100); for i: =0 to 5 do   if a[i] mod 2 =0 then    j: =j+a[i]; writeln(j); readln; 3)a: array [0..5] of integer;     i,s: integer; begin randomize; s: =1; for i: =0 to 5 do  a[i]: =random(9)+1; for i: =0 to 5 do  if i mod 2 < > 0 then    s: =s*a[i]; writeln(s); readln; end.4)const n=5; m=5; var a: array [0..n,0..m] of integer;     i,j: integer; begin  randomize; for i: =0 to n do for j: =0 to m do   a[i,j]: =random(100);   for i: =0 to n do  begin    writeln;     for j: =0 to m do    write(a[i,j]: 3);   end; for i: =0 to n do for j: =0 to m do  begin   if a[i,j] mod 2 =0 then  a[i,j]: =2   else if a[i,j] mod 2 < > 0 then    a[i,j]: =1; end; writeln;   for i: =0 to n do   begin    writeln;   for j: =0 to m do    write(a[i,j]: 3);   end; readln; end. 5)const n=5; m=5; var a: array [0..n,0..m] of integer;     i,j: integer; begin    randomize; for i: =0 to n do for j: =0 to m do   a[i,j]: =random(10);   for i: =0 to n do   begin    writeln;   for j: =0 to m do  write(a[i,j]: 3);   end; for i: =0 to n do for j: =0 to m do a[i,j]: =a[i,j]*2; writeln;   for i: =0 to n do  begin    writeln;     for j: =0 to m do    write(a[i,j]: 3);     end; readln; end.