#include <mistral.h>

INICIAR:
   TAMAÑO DE MEMORIA 20
   temperatura=0, rankine=0
   RECIBIR PARÁMETRO NUMÉRICO(2), GUARDAR EN (temperatura);
   IMPRIMIR("KELVIN     : ", temperatura, NL,\
            "CELSIUS    : ", {temperatura} MENOS '273.15', NL,\
            "FAHRENHEIT : ", {temperatura} POR '1.8' ---RESPALDE EN 'rankine'--- MENOS '459.67', NL,\
            "RANKINE    : ", rankine, NL)
FINALIZAR