uses crt;
var s:string;
    i:integer;
begin
clrscr;
Write('s: ');readln(s);
i:=1;
while i<length(s)-1 do
if (i=pos('но',s))or(i=pos('он',s))then
   begin
     writeln('verno');
     readln;
     exit;
   end
else inc(i);
if i=length(s)-1 then
writeln('ne verno');
readln
end.