решите задачу по паскаль плизз
смотрите ниже

program Pr;
var
  i, n: integer;
  zn: integer;
  sm: real;
begin
  zn:=1;
sm:=0;
   Readln(n);
   for i:=0 to n do
   begin
      sm:=sm+1/zn;
       zn:=zn*3;
   end;
   Writeln(sm:0:6)
end.