Хелп! На интервале (1000 - 9999) найти все простые числа, каждое из которых обладает тем свойством, что сумма первой и второй цифр в записи этого числа равна сумме третей и четвертой. Вот моя программа, которая почему-то ни од...

Хелп! На интервале (1000 - 9999) найти все простые числа, каждое из которых обладает тем свойством, что сумма первой и второй цифр в записи этого числа равна сумме третей и четвертой. Вот моя программа, которая почему-то ни одного числа не нашла :\ В чем моя ошибка? var i,j,k,a,c,a2,c2,a3,a4: integer; begin for i:= 1000 to 9999 do begin if i mod 2 <> 0 then begin for j:= 1 to (i div 2) do if i mod j=0 then inc (k); if k=2 then begin a:= i mod 10; c:= i div 10; a2:= c mod 10; c2:= c div 10; a3:= c2 mod 10; a4:= c2 div 10; if (a+a2) = (a3+a4) then write (i,' '); end; end; end; end.