Могу предложить на Паскале:

uses Crt;
var x, y, z: real;
begin
 ClrScr;
 Write ('x = '); ReadLn(x);
 Write ('y = '); ReadLn(y);
 if (y-7) and (x+abs(y)>=0)
 then
   begin
     z:=9*sqr(sqr(x))-sqrt(x+abs(y))/(y+7);
     WriteLn('z = ', z:4:2);
   end
 else Writeln('None!');
 ReadLn;
end.

Здесь важно учесть, что Y не должен равняться (-7), поскольку на 0 делить нельзя, и X должен быть больше или равен модулю Y, поскольку нельзя извлекать корень из отрицательного числа.

 PS: Если надо решение на Си++, то это сделать просто, основываясь на приведенной выше программе...