Пожалуйста, составьте программу в паскале и обязательно блок схему алгоритм
Program first;var a, n, i: integer;rez: real;BEGIN readln(a); readln(n); for i:=0 to n do rez := rez + 1/(a+n); writeln(rez)END.
