Разработайте программу в паскаль вычисления сложного выражения: z=(x^2+y^2)/(2-sqrt(x+ программа должна предлагать пользователю ввести величину переменных x и y и на основании этой информации производить расчет z.

Var x, y, z: double;
begin
   writeln('Input x');
   readln(x);
   writeln('Input y');
   readln(y);
   if (x + y >= 0) and (x + y <> 4) then {необходимо для корректности}
   begin
      z := (x * x + y * y) / (2 - sqrt(x + y));
      writeln(z);
   end
   else
      writeln('Incorrect input');
end.