var n:byte;
    i:byte;
    k,min,max:longint;
function dx(x:longint):boolean;
var s:string[10];
    i:byte;
begin
      str(x,s);
     for i:=1 to length(s) div 2 do
     if s[i]<>s[length(s)-i+1] then
        exit(false);
     exit(true);
     
end;
begin
     readln(n);//n<=9
     min:=1;
     max:=9;
     for i:=1 to (n-1) do
     begin
        min:=min*10;
        max:=max*10+9;
     end;
     writeln('min= ',min);
     writeln('max= ',max);
     for k:=min to max do
     if dx(k) then write(k:10);
     readln;
end.