{* Задача 83 *}

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

Program Task_7;

Uses zadach83.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.