1 var
 2   i,j:longint;
 3   sa,sb:string;
 4   c:char;
 5 begin
 6   for i:=12345 to 98765 do begin
 7     str(i,sa);
 8     for j:=2 to 9 do begin
 9       str(i*j,sb);
10       if( i*j<99999 ) then begin
11         c:=sb[1]; sb[1]:=sb[5]; sb[5]:=c;
12         c:=sb[2]; sb[2]:=sb[4]; sb[4]:=c;
13         if(sa=sb) then writeln(i,‘*‘,j,‘=‘,i*j);
14       end;
15     end;
16   end;
17 end.