VisualG Problema com cálculo de IMC

[Gabriel MR]

Meu programa até que funciona normalmente. Mas quanto insiro a massa de 2kg e Altura de 2m aparece como se estivesse dentro o IMC ideal. Alguém sabe o por quê e como corrigir?

 

algoritmo "CalculoIMC"
var
   M, A, IMC: real
inicio
      Escreva("Massa(Kg): ")
      Leia(M)
      Escreva("Altura(m): ")
      Leia(A)
      IMC <- M/(A^2)
      EscrevaL("Seu IMC é de ", IMC:5:2)
      Se (IMC >= 18.5) e (IMC < 25) entao
         Escreva(" Parabéns, você está no seu peso ideal")
      Senao
           Escreva("Você não está na faixa de peso ideal")
      FimSe
fimalgoritmo

 

[Simon Viegas]

Aqui apareceu corretamente:

 

Poste a tua tela para analisarmos melhor.

[Gabriel MR]

@Simon Viegas Não sei como, mas simplesmente reiniciando o computador voltou a pegar normalmente, segue um recorte de tela:

 

Muito obrigado pela resposta mesmo assim 

[Simon Viegas]

12 horas atrás, Gabriel MR disse:

@Simon Viegas Não sei como, mas simplesmente reiniciando o computador voltou a pegar normalmente, segue um recorte de tela:

 

Ah! de boa! O VisualG de vez em quando dar uns erros de memória, .

 

 

Adendo:

Perceba na imagem como um valor do IMC está um pouco a afastado para direita. Isso acontece pois "reservou" muito espaço a esquerda desnecessariamente:

 

Em 31/12/2019 às 18:08, Gabriel MR disse:

EscrevaL("Seu IMC é de ", IMC:5:2)

 

Poderia colocar algo assim:

EscrevaL("Seu IMC é de ", IMC:1:2)

 

[Gabriel MR]

@Simon Viegas Opa, valeu pela ajuda, vou dar uma arrumada.