RosettaCodeData/Task/Babbage-problem/Scilab/babbage-problem.scilab

n=2;
flag=%F
    while ~flag
        n = n+2;
        if pmodulo(n*n,1000000)==269696 then
            flag=%T;
        end
end
disp(n);