Дан кусок программки обработки двумерного массива: for I:=1 to 6 do

Дан фрагмент программки обработки двумерного массива: for I:=1 to 6 do for J:=1 to 6 do begin S:=A[I,J] mod K; if (S mod 2) = 0 then A[I,J]:= 1 else A[I,J]:= 0; end; На вход ему подан массив А, приведенный ниже. 19_21_23_25_27_29 57_59_61_63_65_31 55_81_83_85_67_33 53_79_89_87_69_35 51_77_75_73_71_37 49_47_45_43_41_39 Какое малое значение обязано быть у переменной K, чтоб по окончании исполненья куска массив A содержал однообразное количество единиц и нулей?