Пожалуйста помогите, вообще не знаю как эту задачу делать: Написать программу, которая вычисляет сумму первых n членов ряда 1+1/2+1/3+1/4+… . Количество суммируемых членов ряда задается во время работы программы.

Проще простого...

var
 n,i:longint;
 k:extended;
Begin
 ReadLn(n);
 For i:=1 to n do
  k:=k+1/i; 
 WriteLn(k:3:3);
 ReadLn;
End.

k := 0;

перед циклом желательно.