JOB "EAN13"    file - j.wxmx

kill(all);

p:[4,8,2,0,0,3,6,4,8,0,1,2,8];

s1:p[1]+p[3]+p[5]+p[7]+p[9]+p[11];

s2:(p[2]+p[4]+p[6]+p[8]+p[10]+p[12])*3;

s:s1+s2;

m:mod (s, 10);

Перебор цифр у першому розряді коду й перевірка на відповідність контрольному розряду

for a:0 thru 9 step 1 do (s1:a+p[3]+p[5]+p[7]+p[9]+p[11],s2:(p[2]+p[4]+p[6]+p[8]+p[10]+p[12])*3,s:s1+s2,m:mod (s, 10),if m=(10-p[13]) then display(a) else nop)$