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

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.