Составить алгоритм подсчета суммы s первых 1000 членов гармонии 1+1/2+1/3+1/+ 1/n используя цикл с предисловием нужна только блок схема

PROGRAM B02;
CONST
max = 1000;
VAR
index:word;
sum:real;
BEGIN
index:=2;
sum:=1;
while (index<=max) do begin
sum:=sum+1/index;
index:=index+1;
end;

writeln('1+1/2+1/3+1/4....+ 1/',max,' = ', sum);
END.