program z741;

uses crt;

const n=10;

var x:array[1..n] of integer;

k,i:integer;

BEGIN

clrscr;

randomize;

for i:=1 to n do

begin

x[i]:=random(50)-10;

writeln(x[i]:7);end;

writeln ('vv k');

readln(k);

i:=1;

While (i<=n) and ((x[i] mod k<>0) or

(x[i]<=0)) do inc(i);

if i>n then Writeln('net')

else Writeln ('est');

readln;

END.