var a:array[1..1000] of wordn,i,j,dep:wordbegin write('N(1-1000)=')readln(n) if (n=0) or (n>1000) then b
