Помогите решить Паскаль задачу №5

Question

Помогите решить Паскаль задачу
№5

---

Answer 1

Var
  i, s: integer;


begin
  s := 0;
  i := 5;
  repeat
    s := s + i;
    i := i + 6;
  until i > 131;
  writeln(s);
end.