Укажите все целые числа, которые увеличатся на 20%, если их цифры записать в обратном порядке

uses crt;
function Revers(n:longint):longint; {переворот числа}
var m,p:longint;
    i,k:integer;
begin
m:=n;
p:=0;
while m>0 do
 begin
  i:=m mod 10;
  p:=p*10+i;
  m:=m div 10;
 end;
Revers:=p;
end;
var a,b,i,k:longint;
begin
clrscr;
repeat
writeln('Введите диапазон чисел:');
readln(a,b);
until b>a;
for i:=a to b do
if Revers(i)-i=i div 5 then{если перевернутое больше исходного на 1/5 его часть}
 begin
  k:=1;
  write(i,' '); {это числа типа 45,495,4545,4995.....}
 end;
if k=0 then write('Таких чисел нет');
readln
end.

uses crt;
var a,b,i,k,m,p,f:longint;
begin
clrscr;
repeat
writeln('Введите диапазон чисел:');
readln(a,b);
until b>a;
f:=0;
for i:=a to b do
 begin
  m:=i;
  p:=0;
  while m>0 do
   begin
    k:=m mod 10;
    p:=p*10+k;
    m:=m div 10;
   end;
  if p-i=i div 5 then{если перевернутое больше исходного на 1/5 его часть}
   begin
    f:=1;
    write(i,' '); {это числа типа 45,495,4545,4995.....}
   end;
 end;
if f=0 then write('Таких чисел нет');
readln
end.