Процедуры и функции

[Asira]

Андрей.12 =====>>> А зачем сразу выводить, заноси в массив,сортируй и выводи

поэтому и спросила

[Asira]

Андрей.12 А зачем сразу выводить, заноси в массив,сортируй и выводи поэтому и спросила

[eoln]

Таких чисел маловато, на первое число (несимметричное) наткнулся на 14-ой тысяче

function inv(k: integer): integer;//делаем число симметричным
var
  i, n: integer;
begin
  i := 0;
  while k > 0 do
  begin
    n := k mod 10;
    k := k div 10;
    i := 10 * i + n
  end;
  result := i
end;
function del(k:integer): integer;
      var i,d:integer;
      begin
      d:=0;
      for i:=2 to k div 2  do
      if k mod i=0 then d:=d+i;
      result := d
      end;
  var m,n,i:integer;
begin
  writeln('m,n');
  readln(m,n);
  for i:=m to n do
    if (del(i) = del(inv(i))) 
    and (del(i)<>0)//убираем простые числа
    and (i<>inv(i))//убираем симметричные
    then writeln(i);
  writeln('ok');readln
end.

[Asira]

Программа игнорирует числа 1 2 3 4 5 .... 44 55 66 ( хотя она впринципе должна их учитывать )........... из -за условий (del(i)<>0)//убираем простые числа
and (i<>inv(i))//убираем симметричные

Если убираешь всё тип-топ !!!!!!!!!!!!! Спасибо огромное!!!!!!!