Checar Valor inteiro em portugol

algoritmo "Valor inteiro"
// Função :
// Autor : Moises fernandes barbosa
// Data : 11/11/2013
// Seção de Declarações
//1)  Dado o vetor VET, definido por:

//Var Vet : vetor[1..100] de inteiro

//a)  Preenchê-lo com o valor inteiro 30;
//b)  Preenche-lo com os números inteiros 1,2,3...100;
//c)  Preenche-lo com os números pares encontrados entre 1 e 100
var
Vet1, cont: vetor[1..100] de inteiro
i:inteiro
inicio

escreval("Digite um número para a Posição 30:  ")
leia(Vet1[30])
para i de 1 ate 100 faca
escreval("Digite um número: ")
leia(cont[1])
fimpara
fimalgoritmo