do i=1,2000;j=i;1 k=k+mod(j,10)**2;j=j/10;if(j>0)goto1;j=k;k=0;if(j>6)goto1;if(j<2)print'(i0)',i;enddo;end