6 lines
153 B
ObjectPascal
6 lines
153 B
ObjectPascal
|
##
|
||
|
|
var k := ReadReal('Enter Kelvin Temperature:');
|
||
|
|
Println('Celsius:',k - 273.15);
|
||
|
|
Println('Fahrenheit:',k * 1.8 - 459.67);
|
||
|
|
Println('Rankine:',k * 1.8);
|