out cc;
%off nat;

eqq:=d - k*a - sqrt(a)*N;

%solve(eqq,a);
%A:=( - SQRT(4*D*K + N**2)*N + 2*D*K + N**2)/(2*K**2)$
a:=s**2;
eqq;
eqq:=d - k*s**2 - s*N;

S:=(    SQRT(4*D*K + N**2) - N)/(2*K);
eqq;

S:=( - (SQRT(4*D*K + N**2) + N))/(2*K);
eqq;




shut cc;
bye;
end;