program manipula_vetor_tpu;

uses
  vetorls;

var
  vet:tipo_vetor;
  dado:tipo_dado;

begin
  inicializa_vetor(vet);
  insere_vetor(vet,10);
  insere_vetor(vet,20);
  insere_vetor(vet,30);
  dado:=40;
  insere_vetor(vet,dado);
  lista_vetor(vet);
  readln;
end.