Programação e algoritmo

algoritmo "empresa"
// Função : Montar um programa para uma empresa
// Autor : Rodrigo Quirino da Silva
// Data : 01/06/2011
// Seção de Declarações

var tipo: caractere
// dados do funcionario da empresa reg1: vetor nome: caractere idade: inteiro admissao: inteiro dependentes: inteiro sexo: caractere hmes: inteiro hextra: inteiro
I, odontologico, opcao: inteiro diretor, gerente_area, gerente_departamento, supervisor, manutencao, monitor, operador, assistente: caractere liquido, bruto: real pessoas: caractere inicio // Seção de Comandos para I de 1 ate 1200 faca escreval("Digite o nome do", I,"funcionario") leia(pessoas [I]. nome) escreva("Digite a idade") leia(pessoas [I]. idade) escreva("Digite a data de admissão") leia(pessoas [I]. admissao) escreva("Digite o número de dependentes") leia(pessoas [I]. dependentes) escreva("Digite o sexo do funcionário") leia(pessoas [I]. sexo) escreva("Digite o numero de horas trabalhadas no mês") leia(pessoas [I]. hmes) escreva("Digite o número de horas extras do mês") leia(pessoas [I]. hextra) fimpara escreva("Digite 1 se o funcionário usa o convênio odontológico e 0 se não usa") leia(odont) se odont>1 entao odont:=odontologico/odontologico fimse// escreva("diretor ganha R$ 110,44 por hora") escreva("gerente ganha R$ 91,30 por hora") escreva("gerente de departamento ganha R$ 75,00 por hora") escreva("supervisor ganha R$ 44,43 por hora") escreva("responsável pela manutenção de área ganha R$ 36,03 por hora") escreva("monitor de área ganha R$ 32,81 por hora") escreva("operador ganha R$ 22,88 por hora") escreva("assistente ganha R$ 15,55 por hora") escreva("O valor de cada hora extra trabalhada é 50% do valor da hora normal trabalhada") escreva("A empresa paga R$ 50,00 para cada depedente do funcionário") escreva("É descontado 1% do salário bruto do funcionário referente ao convênio médico") escreva("Se usar o convênio odontológico será descontado R$ 25,00 para o funcionário e