var x, a, D: real;
begin
  write('Введите x: ');
  readln(x);
  write('Введите a: ');
  readln(a);
  if (x < 0)
  then
    D := sqr(x - a)
  else
    D := (sqr(a) - x) / 8;
  writeln('Результат выполнения: ', D);
end.