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

Сколько среди чисел от 5584 до 6654 (включительно) таких чисел, для которых выполняются одновременно два свойства: они простые

очень прошу помогите

59

var i,j,m,k : integer;begink:=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