Ответ:

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)

const k=100;

var

 a:array[1..k] of integer;

 i,n:integer;

 s:real;

begin

 writeln('Введите n');

 readln(n);

 for i:=1 to n do

   s:=s+1/(2*i);

 writeln(s);

end.

Объяснение: