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

var    i, n: integer;    a, s: real;begin    readln(n);    a := 1;    s := a;        for i := 1 to n do     begin        a := a / 3;        s := s + a;    end;        writeln(s);end.