a=1;b=0;c=0;p=0; cycle:d=a*100+b*10+c;if(LCM(8*d, 10^10)==4*LCM(d, 10^10), goto loop, goto next); loop:printd," ",;p=p+1; next:c++;if(c<10, goto cycle, 0);c=0;b++;if(b<10, goto cycle, 0);c=0;b=0;a++;if(a<10, goto cycle,0);print"Total = ",p
OUTPUT: m = 512
+117 
