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

uses crt;function Revers(n:longint):longint; {переворот числа}var m,p:longint; i,k:integer;beginm:=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;beginclrscr;repeatwriteln(\'Введите диапазон чисел:\');readln(a,b);until b>a;for i:=a to b doif Revers(i)-i=i div 5 then{если перевернутое больше исходного на 1/5 его часть} begin k:=1; write(i,\' \'); {это числа типа 45,495,4545,4995.....} end;if k=0 then write(\'Таких чисел нет\');readlnend.