Var
 m:array[1..100] of Integer;
 tmp,i,z,max : Integer;
begin
 write('max = ');
 readln(max);
 for i:=1 to max do
  begin
   write('m[',i,']= ');
   readln(m[i]);
  end;
 writeln;
 for i:=1 to max do write(m[i]:4);
 writeln;
 z:=max+1;
 repeat
  z:=z-1;
 until m[z]=0;
 tmp:=m[max];
 for i:=max downto z+1 do m[i]:=m[i-1];
 m[z]:=tmp;
 for i:=1 to max do write(m[i]:4);
 readln
end.