Program zam;
 const l=3;k=5;
 type MAS=array [1..l,1..k]of integer;
  var A,B:MAS;
  max_b: longint;
  i,j,perevernut:integer;
function Reverse(a,b: longint): longint;
begin
if (a = 0) then begin
Reverse:= 0;
max_b:= (b div 10);
exit
end;
Reverse:= (a mod 10)*(max_b div b) + Reverse( (a div 10), b*10 )
end;
begin
      for i:=1 to l do
      for j:=1 to k do
       begin
       writeln('A[',i,',',j,']= ', B[i,j]);
       readln(B[i,j]);

       end;
        for i:=1 to l do
        for j:=1 to k do
       begin
       writeln('A[',i,',',j,']= ', Reverse(B[i,j],2));
       end;
       readln;
       end.