¿Como calcular el IMC con PSeINT?

Algoritmo IMC
Escribir "Introduce peso en KG"
Leer P
Escribir "introduce altura en metros "
Leer A
R<-p/(a^2)
Si R<18.5
Escribir "Bajo Peso IMC: " R
FinSi
Si R>18.5 y  R<24.9
Escribir "Peso normal IMC: " R
FinSi
Si R>25 y  R<29.9
Escribir " Sobrepeso IMC: " R
FinSi
Si R>30 y  R<34.9
Escribir " Obesidad I IMC: " R
FinSi
Si R>35 y  R<39.9
Escribir " Obesidad II IMC: " R
FinSi
Si R>40 y  R<49.9
Escribir " Obesidad III IMC: " R
FinSi
Si R>50
Escribir " Obesidad IV IMC: " R
FinSi
FinAlgoritmo