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

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.