program ler_e_imprimir_pares_indices;

const 
	min = 1; 
	max = 200;

type vetor = array [min..max] of longint;

var 
	v : vetor;
	n : longint;
	pos_remover : longint;

procedure imprimir (var v : vetor; tam : longint);
var i : longint;
begin
	for i:= 1 to tam do
		write (v[i], ' ');
	writeln;
end;

procedure ler (var v : vetor; var tam: longint); (* leitura *)
var i : longint;
begin
	writeln ('Qual o tamanho do vetor? ');
	read (tam); (* 1 <= tam <= 200, define o tamanho util do vetor *)
	for i := 1 to tam do
		read (v[i]);
end;

procedure remove (pos: longint; var v: vetor; var n: longint);
var i: integer;
begin
	for i := pos to n - 1 do
		v[i] := v[i+1];
	n := n - 1;
end;

begin (* programa principal *)
	ler (v, n);
	imprimir (v, n);

	pos_remover := -1;
	while (pos_remover < 1) or (pos_remover > n) do
	begin
		writeln ('Qual a posicao a ser removida do vetor? ');
		read (pos_remover);
	end;

	remove (pos_remover, v, n);
	imprimir (v, n);
end.