p:[4,8,2,0,0,4,9,4,9,1,3,3,0];
f4(v,w):=p[1]+p[3]+p[5]+p
[7]+p[9]+p[11]+v+(p[2]+p
[4]+p[6]+p[8]+p[10]+p[12])
*3+w+p[13];
for i:0 step 1 while i<10 do (p
[5]:i, for j:0 step 1 while j<10
do ( p[6]:j, if mod(f4(0,0),10)
=0 then display (i,j,f4(0,0))));
You can insert the text of the programm into оnline form