Помогитеее ош срочно❤️

Question

Помогитеее ош срочно❤️

---

Answer 1

Var
a,b,c:integer;
begin
a:=2;
b:=10;
c:=3;
repeat
a:=a+c;
b:=b-1;
c:=c+1;
until a>b;
if a>b then
write('C=',c*b);
end.