program mn; uses crt; var n:integer; function pr(var a:integer):string; begin a:=a mod 10000; if a mod 8 = 0 then pr:='da' else pr:='net'; end; BEGIN ClrScr; Write('n:'); readln(n); writeln(pr(n)); readln; END.