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

uses crt;
function Revers(n:longint):longint; переворот числа
var m,p:longint;
i,k:integer;
begin
m:=n;
p:=0;
while mgt;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 bgt;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.