3. напишите программу на языке программирования (или составьте алгоритм). дано натуральное число n. вычислить: s = + одна вторая + одна третья + одна четвертая и.т.д

Вот как-то так с костылями, ибо нету под рукой программы
var i, z, a:integer;var N, S:real;beginreadln(z);a:=0;N:=1/2;for i:=0 to z do begina:=a+1;S:=S+N;N:=1/(2+a);end;print(S);end.