program zad;
uses crt;
type m=array[1..100] of byte;
var a:m;
i,k,n:byte;
   Procedure Init(var a:m);
   var i,x,y:byte;
   Begin
   write('введите n<=50 ');
   readln(n);
write('если первой лежит ложка введите 0, иначе 1');
readln(x);
   if x=0 then y:=1 else y:=0;
      for i:=1 to 2*n do
   if i mod 2=0 then a[i]:=y
      else a[i]:=x;
      end;
Procedure Print(a:m);
var i:byte;
   begin
   for i:=1 to 2*n do write (a[i]:2);
   writeln;
   end;
Procedure Swap(var x,y: Byte);
var z:Byte;
   Begin
   z:=x;
   x:=y;
   y:=z;
   end;
Begin
   Init(a);
   Print(a);
   if a[1]=0 then i:=2 else i:=1;
      while i<=n do
Begin
   Swap(a[i],a[2*n-i+1]);
   i:=i+2;
   end;
   Print(a);
readln;
End.