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

[Asira]

Вывести все натуральные числа из отрезка [M,N], сумма делителей которых равна сумме делителей числа, записанного теми же цифрами в обратном порядке. Использовать процедуру (функцию) нахождения суммы делителей числа.
Вот что у меня вышло

{$APPTYPE CONSOLE}

uses
  SysUtils;

Procedure del( k:integer;d:real);
      var i,p:integer;
      begin
      d:=K+1;
      p:=k div 2;
      for i:=2 to p  do
      if ((k mod i)=0) then d:=d+i;
      end;
  var k,m,n,i,s:integer;d,t:real;
begin
  writeln('k,m,n');
  readln(k,m,n);
  for i:=m to n do
  begin
  del(k,d);
  del(i,t);
  if d=t then write(i,' ');
  end;
  readln;
end.

Не могу выполнить вот это условие -"записанного теми же цифрами в обратном порядке."

[Андрей.12]

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

[Asira]

вот и проблема в том каким образом сортировать.........

[Андрей.12]

var a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 5 do begin
write('a[',i,']=');
readln(a[i]); end;
for i:=5 downto 1 do
write(a[i]);
readln;
end.

думаю так

[Alex_FF]

там по условию вводятся только числа M и N, а зачем вы вводите еще K?

[Asira]

за k я взяла перевёрнутое число но я не знаю как грамотно его получить...........
Не могу выполнить вот это условие -"записанного теми же цифрами в обратном порядке."

[Alex_FF]

можно сконвертировать число в строку, записать её в обратном порядке, и заново перевести в число, либо можно разобрать число по цифрам и заново собрать его в десятичной системе счисления

[Asira]

Как выполнить вот этот момент - заново собрать его в десятичной системе счисления

[Alex_FF]

возвращает число, с записанными в обратном порядке цифрами:

function Reverse(X: Longint): Longint;
var
  Y: Longint;
begin
  Y := 0;
  while X <> 0 do
  begin
    Y := Y * 10 + X mod 10;
    X := X div 10;
  end;
  Reverse := Y;
end;

[Alex_FF]

Сообщение от Asira

вот и проблема в том каким образом сортировать.........

а к чему здесь сортировка?