Написать программу в Pascal

program summary;

 var i, x: integer;

 var sum: real;

begin

 sum := 0;

 readln(x);

 for i := 1 to 15 do

 begin

   sum := sum + (exp(2*i*(ln(x / (exp(i*ln(2)));  

 end;

 writeln(sum);

end.

Объяснение:

Надеюсь объяснять не надо