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

{Óêàæèòå âñå öåëûå ÷èñëà, êîòîðûå óâåëè÷àòñÿ íà 20%, åñëè èõ öèôðû çàïèñàòü â îáðàòíîì ïîðÿäêå}
uses crt;
var a, prod: real;
    i: integer;
begin
for i:= -32000 to 32767 do
   begin
   while i>0 do
      begin
      a:=a*10 + (i mod 10);
      i:=i div 10;
      end;
   prod:=a*0.2+a;
   if prod/i=0.2 then writeln(i);
   end;
end.

{Укажите все целые числа, которые увеличатся на 20%, если их цифры записать в обратном порядке}
uses crt;
var a, prod: real;
    i: integer;
begin
      i:=i div 10;
for i:= -32000 to 32767 do
   begin
   while i>0 do
      begin
      a:=a*10 + (i mod 10);
      end;
   prod:=a*0.2+a;
   if prod/i=0.2 then writeln(i);
   end;
end.

uses crt;
type t=array[1..15] of real;
var n: t;
    i: integer;
begin
for i:= 1 to 15 do
   begin
   n[i]:=random(101)-50;
   write(n[i]:3:3, ' ');
   end;
end.

n[i]:=-50+random*101;

uses crt;
type t=array[1..20] of byte;
var n: t;
    i: byte;
begin
for i:=12 downto 1 do
   begin
   writeln (n[i]);
   end;
end.

uses crt;
type t=array[1..20] of byte;
var n: t;
    i: byte;
begin
for i:=1 to 20 do
   begin
     n[i]:=21-i;
     write (n[i],' ');
   end;
end.