#include <mistral.h>

INICIAR:
   TAMAÑO DE MEMORIA 15
   temperatura=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' MENOS '459.67', NL,\
            "RANKINE    : ", {temperatura} POR '1.8', NL)
FINALIZAR