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.