Realizar un Programa en el Cual se Ingresan los Grados Celsius o Centígrados y me devuelve su valor en Grados Kelvin y Fahrenheit

program grados;
uses wincrt;
var
centigrados,kelvin,fahrenheit:real;
begin
writeln('Ingrece Grados centigrados ');
readln(centigrados);
kelvin:=centigrados+273.15;
fahrenheit:=(centigrados*1.8)+32;
write('Los grados centigrados a grados kelvin son  ',kelvin:2:2,'  y en grados Fahrenheit es ',fahrenheit:2:2);
end.

by Richarth Flores