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

program z30;

{ Вывести список симмитричных нечётных чисел

(например 34543 или 70507) в 5 колонок}

uses crt;

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

    i1:string;er:integer;

  begin

   clrscr;

    textcolor(10);i:=10001;

    while i<=99999 do

     begin

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

      for j:=5 downto 1 do

       begin

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

       end;

      if i=m then begin

        inc(l);inc(k);

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

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

        write(i,' ');

       end;i:=i+2;

     end;

   readln;

  end.