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

var
  i, s: integer;


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