Так просто же, заводишь переменную, которая будет показывать знаменатель дроби, заводишь переменную для суммы последовательности и заводишь переменную счётчик. И крутишь в цикле, пока сумма не будет больше 7, к сумме прибавляешь элемент последовательности (1 делить на первую переменную), прибавляешь к первой переменной 2 и прибавляешь к счётчику 1.
program Anna; var k,n:longint; s:real; begin k:=-1; n:=0; s:=0; repeat n:=n+1; k:=k+2; s:=s+1/k until (s>7); writeln(n,,s) end. {Ответ здесь 337607, сумма при этом равна 7.00000179178...}