Exercicio 3.3 ou 4.3 da lista de repetição

//3.3 Faça um programa que leia e valide as seguintes informações:
// a. Nome: maior que 3 caracteres;
// b. Idade: entre 0 e 150;
// c. Salário: maior que zero;
//d. Sexo: 'f' ou 'm';
//e. Estado Civil: 's', 'c', 'v', 'd';

Algoritmo "exercicio 3.3"
// Autor(a)    : Ângelo da Cunha Sá
// Data atual  : 22/10/2017
Var
   // Seção de Declarações das variáveis
   nome,sexo,estcivil:caracter
   tamnome,idade,salario:inteiro

Inicio
   enquanto tamnome <= 3 faca
      escreval("Você precisa digitar um nome com mais de três caracteres")
      escreval("Digite o nome do usuário:.. ")
      leia(nome)
      tamnome:=compr(nome)
      escreval("O nome que você digitou tem",tamnome," caracteres")
   fimenquanto
   escreval("---------------------------------------------------------")
   escreval("---------------------------------------------------------")
   repita
      Escreval("Digite a idade do usuário.")
      escreval("A idade deve estar entre 0 e 150 anos")
      Leia(idade)
   ate (idade>0) e (idade<150)
   escreval("---------------------------------------------------------")
   escreval("---------------------------------------------------------")
   repita
      Escreval("Digite o salario do usuário")
      escreval("O salário deve ser maior que zero")
      Leia(salario)
   ate (salario>0)
   escreval("---------------------------------------------------------")
   escreval("---------------------------------------------------------")
   enquanto (sexo<> "m") e (sexo<>"f") faca // ou (sexo=<> f) faca
      escreval("Digite o sexo do usuário: ")
      escreval("Você precisa digitar F ou M")
      leia(sexo)
   fimenquanto
   escreval("---------------------------------------------------------")
   escreval("---------------------------------------------------------")
   enquanto (estcivil<> "c") e (estcivil<>"d") e (estcivil<> "s") e (estcivil<>"v") faca // ou (sexo=<> f) faca
      escreval("Digite o estado civil do usuário: ")
      escreval("Digite C - Casado")
      escreval("Digite S - Solteiro")
      escreval("Digite V - Viuvo")
      escreval("Digite D - Divorciado")
      escreval("Você precisa digitar C ou D ou V ou S")
      leia(estcivil)
   fimenquanto
   escreval("---------------------------------------------------------")
   escreval("---------------------------------------------------------")
   escreval("O Nome do usuário é: ",nome)
   escreval
   escreval("O tamanho do nome é:..",tamnome)
   escreval
   escreval("A idade do usuário é:..",idade," anos")
   escreval
   escreval("O salário do usuário é: ",salario)
   escreval
   escreval("O sexo do usuário é: ",sexo)
   escreval
   escreval("O Estado civil do usuário é: ",estcivil)
Fimalgoritmo