Ответ:

Решение:

А) На алгоритмическом языке:

алг пример
нач
  цел x, y, z
  вещ a, b, c
  # Ввод данных (предполагается, что x+y > 0 и x != y)
  ввод x, y

  a := sqrt(x + y) / (x - y)
  b := (x - y) / sqrt(x + y)
  z := a + b

  # Альтернативный вариант для второго выражения
  # c := sqrt(x - y) / (x + y)
  # d := (x + y) / sqrt(x - y)
  # z := c - d

  вывод z
кон

Б) На языке Паскаль:

program Example;
var
  x, y: Real;
  z: Real;
begin
  // Ввод данных (предполагается, что x+y > 0 и x != y)
  Write('Введите x: ');
  Readln(x);
  Write('Введите y: ');
  Readln(y);

  z := sqrt(x + y) / (x - y) + (x - y) / sqrt(x + y);

  // Альтернативный вариант для второго выражения:
  // z := sqrt(x - y) / (x + y) - (x + y) / sqrt(x - y);

  Writeln('Результат: ', z);
end.

Ответ: Алгоритмический язык и Паскаль представлены выше.