Ответ:

s:=1;

n:=1;

i:=1;

repeat

s:=s+1/n;

n:=n+2;

i:=i+1;

until i<3;

Так как i=2,

until 2<3 - это истина, цикл выполняется когда ложно, то есть если бы значение i было бы больше или равно 3.

Поэтому заменим следующим циклом:

ОТВЕТ:

s:=1;

n:=1;

i:=1;

while i<2 do

begin

s:=s+1/n;

n:=n+2;

i:=i+1;

end;

Если решение помогло, пожалуйста засчитай ответ лучшим.