k:=1;
n:=0
for k to 100 do
begin
n:=n+1;
a:=1/n;
sum:=sum+a;
end;
примерно так (pascal долго качается так что я пока не проверял + если это из задачника там есть ответы с пояснением, удачи)
