program mn;
uses crt;
var a:array[1..100]of integer;
i,n:integer;
f:longint;
s:longint;
BEGIN ClrScr;
Write('N:');readln(n);
randomize;
for i:=1 to n do

begin a[i]:=random(50);
write(a[i]:3);
s:=s+a[i];
end;
f:=1;i:=1;
writeln;
{s:=6;} writeln(s);
While f inc(i);
end;
writeln;
if f=s then writeln('4isla:',i-1) else writeln('net');
readln;
END.