Calculo de Grados Centigrados a Grados Kelvin y Fahrenheit

Program logicander;


Uses WinCrt;
var
centigrados, kelvin, fahrenheit : real;
Begin


WriteLn ( 'Ingrese centigrados' );
ReadLn (centigrados);


kelvin:= centigrados+273.15;
fahrenheit:= (centigrados*1.8)+32;


WriteLn ( 'El resultado de Centigrados a Kelvin es: ', kelvin:3:3);
WriteLn ( 'El resultado de Centigrados a Fahrenheit es: ', fahrenheit:3:3);


end.