Program Ryad;   
uses crt;   
cоnst n=10 {вместо 10 вводишь, чему у тебя равно n}   
var i:integer;   
sum:real;   
Begin clrscr;   
sum:=0;   
for i:=1 to n do   
sum:= sum+ 1/(Exp(2 * ln(i)));   
writeln('summa=',s:6:2);   
readkey;   
End.