Программисты помощь нужна) Решать на PascalABC

 var m: array[1..10] of integer; 
var i, j, s: integer; 
begin 
  s:=0; 
  randomize; 
  for i:=1 to 10 do m[i]:=random(-25,20); 
  for j:=1 to 10 do if (m[j] mod 3 = 0) and (m[j] mod 2 <> 0) then s+=m[j]; 
  writeln('Сумма: '+s); 
end.