Make an algorithm in portugol that reads the name of up to 100 people and enter the number of names equal to "jose da silva" and the number of names equal to "ana maria". The algorithm should not accept empty names.
algoritmo semNome;
// Síntese
// Objetivo: ler o nome de até 100 pessoas e informar a quantidade de nomes iguais
// Entrada :nome
// Saída :nomes iguais
//Dados de entada
//joão
//joão
//luca
//Dados de saida
//joão
//1
principal
// Declarações
inteiro qtdNomes ;
texto nome,nomeRepetido;
// Instruções
nomeRepetido="nome";
qtdNomes=0;
enquanto(qtdNomes<3)faca
escreval("nome:");
leia(nome);
qtdNomes=qtdNomes+1;
fimEnquanto
se(comparaTexto(nome,nome)==0)entao
nomeRepetido=nome;
fimSe
se (comparaTexto(nome,nomeRepetido)==0)entao
escreval("nome:",nome);
fimSe
fimPrincipal