program CalculateEquation;
 
uses
  Math, SysUtils;
 
var
  x, y, a, denominator: Double;
 
begin
  // Введите значения x и y
  x := 2; // Задайте значение x
  y := 1; // Задайте значение y
 
  // Проверяем, чтобы знаменатель не был равен нулю
  denominator := (x * x + 4 + Exp(-2) * (1 / (x * x + 4)));
  if denominator = 0 then
  begin
    Writeln('Ошибка: деление на ноль.');
    Exit;
  end;
 
  // Вычисляем значение a
  a :=(1 + y) * ((x + y) / denominator);
 
  // Выводим результат
  Writeln('Результат вычисления a: ', FloatToStr(a));
  Readln;
end.
 

cHJvZ3JhbSBDYWxjdWxhdGVFcXVhdGlvbjsKCnVzZXMKICBNYXRoLCBTeXNVdGlsczsKCnZhcgogIHgsIHksIGEsIGRlbm9taW5hdG9yOiBEb3VibGU7CgpiZWdpbgogIC8vINCS0LLQtdC00LjRgtC1INC30L3QsNGH0LXQvdC40Y8geCDQuCB5CiAgeCA6PSAyOyAvLyDQl9Cw0LTQsNC50YLQtSDQt9C90LDRh9C10L3QuNC1IHgKICB5IDo9IDE7IC8vINCX0LDQtNCw0LnRgtC1INC30L3QsNGH0LXQvdC40LUgeQoKICAvLyDQn9GA0L7QstC10YDRj9C10LwsINGH0YLQvtCx0Ysg0LfQvdCw0LzQtdC90LDRgtC10LvRjCDQvdC1INCx0YvQuyDRgNCw0LLQtdC9INC90YPQu9GOCiAgZGVub21pbmF0b3IgOj0gKHggKiB4ICsgNCArIEV4cCgtMikgKiAoMSAvICh4ICogeCArIDQpKSk7CiAgaWYgZGVub21pbmF0b3IgPSAwIHRoZW4KICBiZWdpbgogICAgV3JpdGVsbign0J7RiNC40LHQutCwOiDQtNC10LvQtdC90LjQtSDQvdCwINC90L7Qu9GMLicpOwogICAgRXhpdDsKICBlbmQ7CgogIC8vINCS0YvRh9C40YHQu9GP0LXQvCDQt9C90LDRh9C10L3QuNC1IGEKICBhIDo9KDEgKyB5KSAqICgoeCArIHkpIC8gZGVub21pbmF0b3IpOwoKICAvLyDQktGL0LLQvtC00LjQvCDRgNC10LfRg9C70YzRgtCw0YIKICBXcml0ZWxuKCfQoNC10LfRg9C70YzRgtCw0YIg0LLRi9GH0LjRgdC70LXQvdC40Y8gYTogJywgRmxvYXRUb1N0cihhKSk7CiAgUmVhZGxuOwplbmQuCg==