чертить блок-схему не буду, но скажу что это сделать не сложно. зацыклить, поставить декремент числа N и т.д.

Var N, i: integer;
S: real;
Begin
writeln('N = ');
readln(N);
for i := 2 to N do
begin
S := S + 1 / i;
end;
writeln('> ', S);
end.

Ты если учишся так будь добра сама свою степень тупизма вычти

я бы мог написать для этого простенькую програмку но лень(

а если сделаю дашься?)

сама всё сама!