for i := 000000 to 999999 do
begin
вычисляем цифры -> digit[1..6]
вычисляем сумму цифр -> sum
if (digit[1] + digit[2] + digit[3]) * 2 = sum then
//счастливый
continue;
ok := false;
for a := 1 to 6 do
for b := a + 1 to 6 do
for c := b + 1 to 6 do
if (digit[a] + digit[b] + digit[c]) * 2 = sum then
ok := true;
if ok then
Writeln(i);
end;