Оператор Div отрезает последнюю цифру числа, а mod считает остаток от деления на 2. Если он равен нулю, то выполняется действие M:= M + x Mod 10.
переменная L, в ней содержится счетчик, который считает, сколько раз оператор Div уберет цифру. В итоге, число должно быть трехзначным.
Ответ 800.