program gfg;
Type My_Array=Array[1..100] of Byte;
Var A:My_Array;
n:Byte;
Procedure Init(Var A: My_Array; Var n: Byte);
Var i: Byte;
Begin
Write('vvedite n<=100'); Readln(n);
write('vvedite informaciu o rasstanovke predmetov 0 - stakan, a 1 - kryska');
For i:=1 To n Do Readln(A[i]);
End;
Procedure Print(A : My_Array; n : byte);
Var i:Byte;
Begin
For i:=1 To 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;
Procedure Solve(Var A : My_Array; n:Byte);
Var i,j:Byte;
Begin
i:=1;
j:=n;
Repeat
While A[i]=0 Do i:=i+1;
While A[j]=1 Do j:=j-1;
If i Until i>j;
End;
Begin
Init(A,n);
Solve(A,n);
Print(A,n);
End.