===PascalABC.NET===

program brainly;

var

 x, y :integer;

begin

 x:= 5;

 y:= 8;

 repeat

   x += y;

   y += 3;

 until y > 32;

 WriteLn(x);

end.

Ответ: 185

Также прилагаю файл программы.