program mmm;
uses crt;
var a:string[100];
d,s,i:integer;
f,k:char;
BEGIN
clrscr;
   writeln('vvedite predlogenie');
   readln(a);
   f:='a';
   k:='b';
   s:=0;
   d:=0;
      for I:=1 to length(a) do begin
   if (f=copy(a,i,1)) then begin s:=s+1;end;
   if(k=copy(a,i,1)) then begin d:=d+1; end;end;
   if s<=d then write('net') else writeln('da');
readln;
END.<\br>