Program array5;
Var 	A: array[1..10] of integer;
	i: integer;
Begin
	for i:= 1 to 5 do
      readln(A[i]);
	for i:= 5 downto 3do
      A[i+1] := A[i];
	A[3] := 65;
	for i:= 1 to 6 do
      writeln(A[i])
		End.