Назовем число праздничным, если его запись не содержит цифры 0, а сумма всех цифр этого числа равна 6. Найти сумму всех новогодних чисел

program zz1;

var a, s, n, i, k, b:integer; / / задаем переменные целого типа

begin

for i:=6 to 111111 do

begin

n:=i; s:=0; a:=0;

while n>0 do / / организуем цикл, пока в числе есть цифры

begin

k:=n mod 10; / / получаем последнюю цифру

if k = 0 then a:=1;

s:=s + k; / / прибавляем ее к сумме

n:=n div 10; / / отбрасываем ее

end;

if (a = 0) and (s = 6) then begin write (' ', i); b:=b + i; end; / / проверяем на условие праздничного числа

end;

writeln;

write (' сумма праздничных чисел = ', b); / / выводим ответ

end.