Кто нибудь может мне объяснить этот код?

sum := 0; {Присвоить переменной sum значение "0"}
while N <> 0 do begin {Пока значение N не равно нулю повторять цикл: }
d:= N mod 10; {Найти остаток от деления значения N на 10 и сохранить в переменную d}
sum := sum + d; {Найти сумму переменных sum и d и сохранить в переменной sum}
N:= N div 10; {Разделить значение переменной N на 10 без остатка и сохранить результат в переменную d}
end; {Конец цикла}
Итого, N=41, d=1 - всегда (при N=123), а sum в 1-ой строке таблицы будет =3, а в последующих - на 1 больше, чем в предыдущей строке, т. е. 4, 5, 6 и т. д.

sum := 0; {Присвоить переменной sum значение "0"}
while N <> 0 do begin {Пока значение N не равно нулю повторять цикл: }
d:= N mod 10; {Найти остаток от деления значения N на 10 и сохранить в переменную d}
sum := sum + d; {Найти сумму переменных sum и d и сохранить в переменной sum}
N:= N div 10; {Разделить значение переменной N на 10 без остатка и сохранить результат в переменную d}
end; {Конец цикла}

Эта программа считает сумму цифр в заданном числе. У вас есть переменные sum, d, N. В начале программы переменной sum присваивается значение 0. Далее идёт цикл до тех пор, пока переменная N не станет равна 0. mod это остаток от деления N на 10. Потом прибавляем к sum получившееся число. div это целая часть от числа при делении на 10.