RosettaCodeData/Task/Temperature-conversion/Maple/temperature-conversion.maple

tempConvert := proc(k)
    seq(printf("%c: %.2f\n", StringTools[UpperCase](substring(i, 1)), convert(k, temperature, kelvin, i)), i in [kelvin, Celsius, Fahrenheit, Rankine]);
    return NULL;
end proc:

tempConvert(21);