пожалуйста, составьте программу в паскале и обязательно блок схему алгоритм

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.