Ошибка при возведении в степень с функций ln и exp - PascalABC.NET

Формулировка задачи:

Собственно вот код:

var
      n, c: integer;
      a, b: real;
 
begin
      readln(n);{например n=16}
      a := trunc(log2(n));
      b := exp(a*ln(2));
      writeln(n-b);{тут выводится 1.77635683940025E-15, хотя по идее должен быть 0 }
      if (n = b) then
            writeln('yes');
end.

Почему так происходит? когда возвожу в степень обычным способом, то всё нормально

Решение задачи: «Ошибка при возведении в степень с функций ln и exp»

Листинг программы

if abs(n-b) < 1E-12 then {т.е. если разница между двумя величинами не превышает 0,000000000001, то считаем, что числа равны}

Объяснение кода листинга программы

Вводится условие, что если разница между двумя числами n и b меньше 1E-12, то эти числа считаются равными.
Задается значение переменной n.
Задается значение переменной b.
Вычисляется разница между n и b.
Если разница меньше 1E-12, то числа считаются равными, иначе выполняется следующий блок кода.
Вычисляется значение функции ln(n).
Вычисляется значение функции exp(b).
Вычисляется значение выражения ln(n)^b.
Выводится значение выражения ln(n)^b.
Код завершается.