Найдите наименьшее натуральное число, удовлетворяющее условия x^3-x^2＝100 pascal

Var i:integer;
begin
i:=0;
repeat
i:=i+1;
until i*i*i-i*i=100;
write('Искомое число: ', i);
end.