Jensen

Ola Pessoal, Boa noite, sou novo aqui no fórum, mas vi que sempre que possível podemos tirar algumas duvidas..
Comecei a aprender programação sozinho e estou usando como auxilio o VISUALG Para desenvolver meus algoritmos,

Tenho material de apoio e sempre tento resolver sozinho ( a maioria das vezes sofro mas consigo) 

Minha intenção é simplesmente entender qual meu erro logico no seguinte problema.

Desenvolvi este algoritmo que calcula o adicional noturno de um funcionário com base em algumas informações fornecidas,

o problema é que quando o programa pede ao usuário para digitar o salario, se este digitar usando um ponto (.) ex (1.800)

o programa retorna o resultado do adicional noturno com um zero antes como um numero decimal, Ex( 0.315)

No entanto se o usuário digita o salario sem  o ponto, o programa retorna o resultado correto sem o Zero

Como deveria editar algoritmo para que o resultado seja sempre coerente, independente do que o usuário digite?

Var
// Seção de Declarações das variáveis 
valorhora: real
adicionalporhora: real
horascontratuais: inteiro
salario: real
jornada: inteiro
diastrabalhados: inteiro
folgas: inteiro
adicionalnoturnototal: real
nome: caracter
jornadadeadicional: inteiro
qtdhorasadicionais: real
horasadicionaismes: inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc... 


Escreval("Oi, Para iniciar digite seu nome")
leia ( nome)
escreval("")

      escreval (nome," Digite seu salario")
      leia (salario)
      escreval("")
      escreval(nome," Digite suas folgas no mes")
      leia (folgas)
      escreval("")
      escreval(nome," Digite sua jornada total na noite de trabalho")
      leia (jornada)
      escreval("")
      escreval("O adicional noturno eh valido das 22:00 ate as 5:00 portanto ")
      escreval ("digite quantas horas de Adicional notunro você se encaixa")
      leia(jornadadeadicional)
      escreval("")

      diastrabalhados <- 30 - folgas
      horascontratuais <- diastrabalhados*jornada
      valorhora <- salario/horascontratuais
      adicionalporhora <- valorhora*0.2

      horasadicionaismes <- diastrabalhados*jornadadeadicional
      adicionalnoturnototal <- horasadicionaismes*adicionalporhora
      
      Escreval ("Ola ",nome," voce trabalha ",horascontratuais," horas por mes,com um salario base de ",salario)
      escreval("")
      escreval ("Portanto sua hora de trabalho vale ",valorhora," R$ Logo, seu adicional noturno sera no valor de ",adicionalnoturnototal," R$ mensais")
      escreval("")

Fimalgoritmo