Пожалуйста, помогите! Из всех 4х значных чисел, выбрать те, которых сумма цифр равна 10.(Паскаль).

for N1 := 1 to 9 do for N2 := 0 to 9 do for N3 := 0 to 9 do for N4 := 0 to 9 do if N1+N2+N3+N4 = 10 then WriteLn(N1,N2,N3,N4):