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

var x,e,s:real;b,i,k:integer;
begin
readln(x,e,k);
b:=trunc(x);
for i:=1 to k*b do
e:=e*e;
s:=(1/(sqr(x)+sqrt(x)))*(((3*sqrt(x))/(1/e))*sin(k*x));
writeln(s:0:10);
end.

var x,s:real;
    n,k:integer;
begin
repeat
 readln(x,n);
until x>0;
s:=0;
for k:=1 to n do
s:=s+(exp(ln(x)/3)-exp(-k*x))*sin(k*x);
writeln((1/(x*x+sqrt(x)))*s);
end.

 var x,k,z:real; 
begin   
   readln(x,k);      
      z:=(1/(sqr(x)+sqrt(x)))*(((exp(1/3)*ln(x)/k)-exp(-k*x))*(k*sin(x)*cos(x)));  
   writeln(z);
 end.

uses crt;
var x,s:real;
    n,k:integer;
begin
clrscr;
write('x=');
readln(x);
if x<=0 then
 begin
  write('Решения нет');
  readln;
  exit;
 end;
write('Количество слагаемых n=');
readln(n);
s:=0;
for k:=1 to n do
s:=s+(exp(ln(x)/3)-exp(-k*x))*sin(k*x);
s:=s/(x*x+sqrt(x));
write('S=',s:0:4);
readln
end.