Ответы: 32 (убираем 1-ю и 3-ю цифры) и 13 (убираем 1-ю и 4-ю цифры).
Начало с маленького до большого - если с распаковкой , А если просто нарисовать то с круглишка головы до туловищя...
begin
var eps := ReadReal('Введите желаемую точность:');
var b := 1 / (2 * 3 * 4);
var s := b;
var i := 2;
var a: real;
repeat
a := b;
b := 1 / ((i + 1) * (i + 2) * (i + 3));
s += b;
Inc(i)
until Abs(b - a) <= eps;
Println(s)
end.