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

program z28;

{ Вывести список шестизначных чётных чисел,делящихся

 без остатка на сумму своих цифр в 10 колонок}

uses crt;

var i,j,k,m,j1,l:longint;

    i1:string;er:integer;

  begin

   clrscr;

    textcolor(10);i:=100000;

    while i<=999998 do

     begin

      m:=0;str(i,i1);

      for j:=1 to 6 do

       begin

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

       end;

      if i mod m=0 then

       begin

        inc(l);inc(k);

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

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

        write(i,' ');

       end;i:=i+2;

     end;

   readln;

  end.