out bb;
%off nat;
%on rounded;

procedure eqq1(r,a); rrr:=r-k*a;
procedure eqq2(r,a); rrr:=r - (k*a + sqrt(k*a)*n);

eqq1(r,a);
eqq1(r+k*x,a+x);

eqq2(r,a);
eqq2(r+k*x,a+x);




%SOLVE({EQQ(1,1),EQQ(2,1)}, {NO(1),NO(2)});

shut bb;
bye;
end;