Программа, вычисляющая натуральный логарифм вещественного числа в степени 2/5 с выводом результата в формате, отводящем на дробную часть 4 позиции

[latex]\displaystyle \ln(a^{2/5})= \frac{2}{5}\ln a=0.4\ln a, \ a\ \textgreater \ 0[/latex] // PascalABC.NET 3.2, сборка 1381 от 04.02.2017 [latex]\displaystyle \ln(a^{2/5})= \frac{2}{5}\ln a=0.4\ln a, \ a\ \textgreater \ 0 [/latex] begin   var a:=ReadReal('a=');   if a>0 then Writeln(0.4*ln(a):0:4)   else Writeln('Логарифм не существует') end. Пример a= 2.543 0.3733