Delphi. Составить логическое выражение...(плиз :)

[Natasha162]

Составить логическое выражение, значение которого равно True, если высказывание истинно, и False, - если ложно.
Сумма цифр четырехзначного натурального числа является однозначным числом. (спасибо)

[Serge_Bliznykov]

цифры чётырёхзначного числа можно получить так:

    D1 := (i div 1000) mod 10;
    D2 := (i div 100) mod 10;
    D3 := (i div 10) mod 10;
    D4 := i mod 10;

отсюда искомое выражение:

(((i div 1000) mod 10)+((i div 100) mod 10)+
    ((i div 10) mod 10)+(i mod 10))<10

[Natasha162]

спасибо большое)