do3 i=1,500 j=i if(mod(i,3))2,1,2 1 print*,'bzzt' cycle 2 goto(1)mod(j,10)-2 j=j/10 if(j>0)goto2 3 print*,i end