Função - Lógica de Programação

Olá! Estou desesperada para resolver este problema, por gentileza me ajudem :D .

Deste programa quero que calcule o salário líquido, salário bruto e mostrando ambos. Veja abaixo e me digam o que está errado por favor.

algoritmo "Calculo_Salario"

var
R,salario: Real

Funcao CalculoSalario(SalBruto: Real) : Real
var
Inss: real
Inicio

Se(SalBruto <= 1.556.94) entao
Inss <- SalBruto * (8/100)
Se(SalBruto > 1.556.95) e (SalBruto <= 2.594.92) entao
Inss <- SalBruto * (9/100)
Se(SalBruto > 2.594.93) e (SalBruto <= 5.189.82)
Inss <- SalBruto * (11/100)
Senao
Inss <-SalBruto - 570.88
FimSe
FimSe
FimSe
Retorne Inss
FimFuncao

inicio
Escreva(" Informe seu salário: ")
Leia(salario)
R <-CalculoSalario(salario)
Escreval("Seu salário bruto é: ", salario)
Escreval("Seu salário líquido é: ", R)
fimalgoritmo