Trabalho De Programa O

01- Uma empresa tem para um determinado funcionário uma ficha contendo o nome, número de horas trabalhadas e o total de dependentes de um funcionário. Considerando que:
A empresa paga 12 reais por hora e 40 reais por dependentes.
Sobre o salário são feito descontos de 8,5% para o INSS e 5% para IR. Faça um algoritmo para ler o Nome, número de horas trabalhadas e número de dependentes de um funcionário. Após a leitura, escreva qual o Nome, salário bruto,os valores descontados para cada tipo de imposto e finalmente qual o salário líquido do funcionário.

var salb,sall,inss,ir:real
DEP:INTEIRO
HORAS:REAL
NOME:CARACTERE
inicio
ESCREVAL("NOME ")
LEIA(NOME)
ESCREVAL("DEPENDENTE ")
LEIA(DEP)
ESCREVAL("HORAS DE TRABALHO ")
LEIA(HORAS)
SALB<-HORAS*12
SALB<-DEP*40+SALB
INSS<-SALB*0.085
IR<-SALB*0.05
SALL<-SALB-(INSS+IR)
ESCREVAL("NOME ", NOME)
ESCREVAL("INSS ",INSS)
ESCREVAL("IR",IR)
ESCREVAL("SÁLARIO BRUT O",SALB)
ESCREVAL("SÁLARIO LIQUIDO ", SALL)
// Seção de Comandos fimalgoritmo 02- O aluno para ser aprovado precisa obter nota 6 de média e frequencia maior que 75 aulas a media final é gerada das notas A1 e A2. Se o aluno por aprovado, apresentar uma mensagem notificando a situação de aprovação. Caso contrario apresentar uma notificação dizendo que foi para exame final. Na situação de exame final, solicitar a nota de exame, somar com a média final e obter a nova média. Se nova média for maior ou igual a cinco, notificar que o aluno foi aprovado em exame final. Caso contrário notificar o aluno que ele foi reprovado em exame final

var n1,n2,media, nova_media,exame : real freq: inteiro inicio escreval("forneça a nota 1 ") leia(n1) escreval("forneça a nota 2 ") leia(n2) media := (n1+n2)/2 escreval(" forneça frequencia ") leia(freq) se (media >= 6) e (freq > 75) entao escreval(" aprovado com média ", media, " e frequencia ", freq) senao escreval(" Aluno em situação de exame final ") escreval(" Foneça a nota de exame " ) leia(exame) nova_media :=