Листинг программы

program z31;

{ Вывести список шестизначных "счасливых" чисел

(сумма первых трёх цифр равна сумме трёх последних),

 кратных семи в 10 колонок}

uses crt;

var i,j,k,m1,m2,j1,l:longint;

    i1:string;er:integer;

  begin

   clrscr;

    textcolor(11);i:=100000;

    while i<=999999 do

     begin

      m1:=0;m2:=0;str(i,i1);

      for j:=1 to 3 do

       begin

        val(i1[j],j1,er);m1:=m1+j1;

        val(i1[j+3],j1,er);m2:=m2+j1;

       end;

      if (m1=m2)and(i mod 7=0)then

       begin

        inc(l);inc(k);

  if k=11 then begin writeln('');k:=1; end;

        if l=250 then begin l:=0;readln; end;

        write(i,' ');

       end;inc(i);

     end;

   readln;

  end.