в паскале либо блок схему,но лучше в паскале ваще не шарю-.-

В сходственных формулах, когда находится некое количество слагаемых, каждое из которых состоит из некоторого количества сумм либо произведений, проще всего, окончательно, использовать рекурсивные функции. Это дозволяет писать программки живо и коротко, но расплатой посещает прыткое переполнение программного стека при росте глубины рекурсии и длительное время счёта. Эффективнее, особенно при значительном количестве слагаемых, использовать итерацию, для чего первоначальное выражение следует немного конвертировать.
$\displaystyle S= \frac1a+\frac1a(a+1)+\dots+\frac1a(a+1)\dots(a+n)= \sum_i=0^n\prod_j=0^i\frac1a+j; \\ p_i=\prod_j=0^i\frac1a+j \to S=\sum_i=0^np_i; \\ p_i= \left \ \displaystyle \frac1a, \qquad i=0 \atop \displaystyle \fraca_i-1a+i, \quad i\ \textgreater \ 0 \right.$

var
a,p,s:real;
n,i:integer;
begin
Write('a='); Read(a);
Write('n='); Read(n);
p:=1/a;
s:=p;
for i:=1 to n do begin
    p:=p/(a+i);
    s:=s+p
    end;
Writeln('S=',s)
end.

Пример
a=2
n=5
S=0.718253968253968

О проекте

в паскале либо блок схему,но лучше в паскале ваще не шарю-.-

Добро пожаловать!