{* Задача 366 *}

Unit ZADACH366;
Interface
Implementation
Begin
 writeln('Определение значения

');
End.

Program zadach366;
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; {* Ждем нажатия Enter *}
End.