[Dim@]

for (s=1; s=n /*Вы присваиваете s=n*/; s+1)

а надо

for(s=1; s==n; s+1)//надо оператор равенства использовать