program brainly;
var
  x, y :integer;
begin
  x:= 5;
  y:= 8;
  repeat
    x += y;
    y += 3;
  until y > 32;
  WriteLn(x);
end.