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

Question

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

---

Comments

там ошибка в условии 1+1/3+1/9+1/27+1/81 = 1.49382716049383

Answer 1

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.