===PascalABC.NET===
program ;
var
x, y :integer;
begin
x:= 5;
y:= 8;
repeat
x += y;
y += 3;
until y > 32;
WriteLn(x);
end.
ответ: 185
Также прилагаю файл программы.
