Посмотрите код и скажите свое мнение...

uses crt;
const e = 0.0001;
var res,a : real;
function ln(x:real) : real;    {vichislenie ln}
var n : integer;
    z,func,v,sum,n1,n2 : real;
begin
  sum := 0;
  z := x-1;
  v := z;
  n := 1;
  func := z;
  n1 := 0;
  n2 := 0;
  repeat
    n1 := n2;
    func := func + sum;
    n2 := func;
    v := v*z;
    n := n+1;
    sum := (v/n);
    if (n mod 2) = 0 then sum := sum * (-1);  {smena znaka}
  until abs(n2 - n1) < e;      {provarka tochnosti}
  ln := func;
end;                              {vichislenie ln}
function fact(x :integer) : real;  {factorial}
var i : integer;
    per : real;
begin
  per := 1;
  for i := 1 to x do
     per := per*i;
  fact := per;
end;                                   {factorial}
function sin(z :real) : real;       {vichislenie sinz}
CONST P = 3.14;
var n1,n2,func,n,v,sum : real;
    q,s : integer;
    {n : longint;}
begin
  func := z;
  q := 1;
  v := z;
  n := fact(q);
  sum := 0;
  s := 1;
  n1 := 0;
  n2 := 0;
  while ( z < -p ) and (z > p) do
    z := z - 2*p;
  repeat
    n1 := n2;
    func := func + sum;
    n2 := func;
    s := s+1;
    v := v*z*z;
    q := q + 2;
    n := fact(q);
    sum := v/n;
    if (s mod 2) = 0 then sum := (-1)*sum
{    else sum := sum*(-1);                }
  until abs(n2-n1) < e;
  sin := func;
end;
begin
  clrscr;
  writeln ('vvedite chislo a');
  readln (a);
  res := ln(1 + sin(a)/(a*a +5))*ln((sqr(sin(a-1)))/(1+a*a*a*a))-ln(1+sin(a/2)/(3+sqr(sin(a))));
  writeln(res:5:4);
  readln;
end.