Помогите пожалуйста Среда программирования "КуМир" В принципе, разберусь и в па??кале, если вам будет легче

3var n: integer;s: real;begins:=0;n:=1;while n <= 3*3*3*3*3*3*3*3 do begins:= s+1/n;n:= n*3;end;writeln(s);end.4var a: integer;s: real;begins:=1;readln(a);for var i:=1 to a do begins:= s-1/(i+1);s:= s+1/(i+2);end;writeln(s);end.