Укажите все целые числа, которые увеличиваются на 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.