begin
  var a := ReadLnReal('Введите число A:');
  var x := ReadLnReal('Введите число X:');
  var z := ReadLnReal('Введите число Z:');
  var y := (x + z <> a) ? ((x <= -1.0) ? (-Pi / 2) : (X < -Sqrt(2) / 2) ? (-Pi / 2 - ArcTan(Sqrt(1 - Sqr(X)) / X)) : (X <= Sqrt(2) / 2) ? (ArcTan(X / Sqrt(1 - Sqr(X)))) : (X < 1.0) ? (Pi / 2 - ArcTan(Sqrt(1 - Sqr(X)) / X)) : Pi / 2) : 0;
  var p := (X - z = a) ? Sqr(x + z) / (Sqr(x) + Sqr(z)) : 0;
  WritelnFormat(y >= 0 ? 'Результат: y={0:f5}, p={1:f5}' : 'Результат: y < 0', y, p);
  WritelnFormat('Результат: {0:f5}',p > 10 ? 'g='+Ln(p) / ln(10) + Exp(2):'p < 10');
end.