##
var k := ReadReal('Enter Kelvin Temperature:');
Println('Celsius:',k - 273.15);
Println('Fahrenheit:',k * 1.8 - 459.67);
Println('Rankine:',k * 1.8);