program z525;
uses crt;
var a,b,c,d,f,e:integer; x:string;
BEGIN
clrscr;
x:='net';
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do begin
e:=sqr(sqr(a+b+c+d));
if e=f then x:='da';
writeln(a*1000+b*100+c*10+d);
end;
writeln(x);
readln;
END.