Ответ:

s := 1;

n := 1;

i := 1;    //

while i < 4 do   //  

begin

s := s  + 1/n;

n := n +2;

inc(i);   //

end;

Объяснение:

i := 1;    // start counter

while i < 4 do   //   loop condition i < max/3/ +1

inc(i);   // increace loop counter