Сколько среди чисел от 5523 до 6572 (включительно) таких чисел, для которых выполняются одновременно два свойства: они простые их сумма цифр четна

var i,j,m,k : integer; begin k:=0; for i:=5523 to 6572 do  begin  m:=0;  for j:=2 to trunc(sqrt(i)) do    if i mod j = 0 then m:=m+1;  if m=0 then     if ((i div 1000)+(i div 100 mod 10)+(i div 10 mod 10)+(i mod 10)) mod 2 = 0 then k:=k+1;  end; writeln('k=',k); end. Результат: k=58