begin
  var x := ReadLnReal('Введите число X:');
  var y := ReadLnReal('Введите число Y:');
  var z := ReadLnReal('Введите число Z:');
  var a := (Sqrt(Abs(x - 1)) - Sqrt(Abs(y))) / (1 + Sqr(x) / 2 + Sqr(y) / 4);
  var b := x * (ArcTan(z) + Exp(1));
  WriteLnFormat('Результат: A={0:f5}; B={1:f5}', a, b);
end.