Информатика Помогите решить задачу

Question

Информатика
Помогите решить задачу

---

Answer 1

Var x,s,k:integer;
begin
readln(x,s);
k:=-1;
while (s>=x)and(x>=1) do
 begin
 k:=k+1;
 s:=s-x;
 x:=x-1;
 end;
if x=0 then k:=k+s;
writeln(k);
end.

Пример:
4 9
2