program one;
uses crt;
var
c: char;
st: string;
k, s, i: byte;
begin
clrscr;
k := 0;
writeln('vvedite chislo');
while c <> #13 do
begin
read(c);
st := st + c;
end;
s := length(st);
for i := 1 to s do
if st[i] = st[i + 1] then
k := k + 1;
if k > 0 then
writeln('est')
else
writeln('net');
readkey;
end.