RosettaCodeData/Task/Temperature-conversion/PascalABC.NET/temperature-conversion.pas

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