Program asd_C_F_K;
Uses Wincrt;
Var

   centigrados,kelvin,fahrenheit:REAL;



Begin

    writeln('Ingrese los grados centigrados');
    readln(centigrados);

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

    writeln('el valor en grados Kelvin es : ',kelvin    :2:3);
    writeln(' ');
    writeln('el valor en grados fahrenheit es :',fahrenheit   :2:3);


End.