      clear all
       X=4122;
       for I=1:6
       Y=X*X;
       Z= fix(Y/100);
       V= fix(Z/(10^4));
       T= V*(10^4);
       W= Z-T
            X=W;
      end

