{* Задача 365 *}

Unit ZADACH365;
Interface
Implementation
Begin
 writeln('Вычислить:

 ');
End.

Program zadach365;
Uses crt; {* Подключаем внешние файлы *}
Const {* Постоянные значения *}
  a = 1;
  b = 1;
Var {* Необходимые переменные *}
  x : real;
  y : real;
  f : real;
Begin
  write('enter x ');
  readln(x);
  write('enter y ');
  readln(y);
  If x > = y Then
  Begin
    f := (sqrt(x * x-y * y)) / (x * sqrt(a * y) + y*sqrt(b * x));
    If f > = 0 Then
      writeln('f := ', f);
  End;
  Else writeln('error');
    readln; {* Ждем подтверждения пользователя *}
End.