n:=0
for(a,1,10,if(a<10,if(a>5,22,2),1)repeat(n=n+1;writeln("N=",n,",A=",a)))