AGAIN Nested while loop!!!

*To*: mathgroup at smc.vnet.net*Subject*: [mg71594] AGAIN Nested while loop!!!*From*: "mumat" <csarami at gmail.com>*Date*: Fri, 24 Nov 2006 01:17:14 -0500 (EST)

I have a list of numbers lst = Table[Random[Integer, {i, 50}], {i, 6}] I want to write a program that if There are two numbers x, y in A where Mod[x^2+y^2, 5]==0 reuturn False and the pair {x,y}, otherwise True! For[i = 0, i < 6, For[j = i, j < 6, If[Mod[lst[[i]]^2 + lst[[j]]^2, 3] == 0, Return[False,{i,j}]];Break[], j++], i++] While loop and nested while loops accept only one counter "i". i=1;j=2; While[i<6 && While[j<6 && Mod[lst[[i]]^2+lst[[j]]^2,7]=!=0,j++];i++];{i,j} {2,6} Would be great if you could help me with this!! Regards, chekad