{* Задача 486 *}

Unit ZADACH486;
Interface
Implementation
Begin
 writeln('Пусть D - заштрихованная часть плоскости (верхний полукруг радиуса 0.6 с центром в точке O, из которого вырезана правая верхняя четверть круга с тем же центром радиуса 0.3). Функция определяется следующим образом: U = x+y, если (x,y) принадлежит D; U= x-y в противном случае. Даны числа x,y. Найти U.');
End.

Program zadach486;

Uses zadach486.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  x : real;
  y : real;
  u : real;
Begin
  Clrscr; {* Очистка экрана *}
  Writeln('Введите исходные данные... ');
  Readln(x, y);
  If (y > = 0) And (x * x+y * y=0.09))) Then
    u := x + y
  Else u := x - y;
    Writeln(u);
End.