Вычислить значение выражения

program zadacha155;
uses crt;
var
     i,n,fact:integer;
summa,sum,a,b,c:real;
const x=0.72;
 
function f(n:integer):integer;
begin
fact:=1;
for i:=1 to n do
fact:=fact*i;
f:=fact;
end;
 
function obschichlen(n:integer):real;
begin
{Power(x,y)- возвращает x в степени y  }
{Exp(x)- возвращает e в степени x (e=2.718281...)}
{Sqrt(x)- возвращает квадратный корень из x }
  for i:=1 to n do begin
  a:=0; b:=0; c:=0;
  a:= Power((-1),(i+1)); {то что стоит перед дробью}
  b:=Power(i,2)*(sqrt(i))*x; {верхняя часть дроби}
  c:=(f(i)+1)*exp(i*x);  {нижняя часть дроби}
  summa:=summa+(a*b/c); {весь ряд}
  obschichlen:=summa;
  end;
end;
 
begin
write('введите количество элементов суммы n=');readln(n);
summa:=0;
summa:=summa+ obschichlen(n);
writeln(summa:1:3);
readln;
end.

program zadacha155;
uses crt;
var
     i,n,fact:integer;
summa,sum,a,b,c:real;
const x=0.72;
 
function f(n:integer):integer;
begin
fact:=1;
for i:=1 to n do
fact:=fact*i;
f:=fact; {результат выполнения функции}
end;
 
function obschichlen(n:integer):real;
begin
{Power(x,y)- возвращает x в степени y  }
{Exp(x)- возвращает e в степени x (e=2.718281...)}
{Sqrt(x)- возвращает квадратный корень из x }
  for i:=1 to n do begin
  a:=0; b:=0; c:=0;
  a:= Power((-1),(i+1)); {то что стоит перед дробью}
  b:=Power(i,2)*(sqrt(i))*x; {верхняя часть дроби}
  c:=(f(i)+1)*exp(i*x);  {нижняя часть дроби} {тут запускается функция f(i) с входным параметром i, эта функция считает n-ый факториал}
  summa:=summa+(a*b/c); {весь ряд}
  obschichlen:=summa;  {результат выполнения функции}
  end;
end;
 
begin
write('введите количество элементов суммы n=');readln(n);
summa:=0;
summa:=summa+ obschichlen(n); {тут запускается функция obschichlen(n) с входным параметром n, эта процедура считает n-ый общий член}
writeln(summa:1:3);
readln;
end.

Program pidprogramy;
uses crt;
function fact(xxx:integer):real;
   var j,f:integer;
      begin
         f:=1;
         for j:=1 to xxx do f:=f*j;
         fact:=f;
      end;
function suma(x:real):real;
   var i:integer;   H,f,zn,S,e:real;
     begin
         x:=0.71;
         S:=0;
         e:=0.00005;
         zn:=1;
         i:=1;
         repeat
           H:=zn*((sqr(i)+sqrt(i)-1)/((fact(i)+1)* exp(I*x)));
           S:=S+H;
           zn:=zn*(-1);
           i:=i+1;
         until abs(H)<e;
         suma:=S;
      end;
begin
writeln('сума =',suma(0.71):10:6);
end.