Вывести щестизначных "счастливых" чисел (сумма первых трех цифр равна сумме трех последних), кратных семи в 10 колонок.

var  b: integer;  a: array [0..5] of byte;begin  for i: integer := 100000 to 999999 do  begin    b := i;    for d: integer := 0 to 5 do    begin      a[d] := b mod 10;      b := b div 10;    end;    if (a[0] + a[1] + a[2] = a[3] + a[4] + a[5]) then      writeln(i);  end;end.