Conversão de temperatura

program temperaturaluisacosta;
var
C,F,K,R:real; {variáveis para temperaturas}
  begin
{entrada de dados}
writeln('forneça a temperatura em farhenheit');
readln(F);
{ebulição da agua em kelvin = 373,15 K}
writeln('forneça a temperatura em kelvin');
readln(K);
{fusão do gelo em rankine = 491,7 R}
writeln('forneça a temperatura em rankine');
readln(R);

C:=(5/9)*(F-32);{conversão da temperatura de celsius para farhenheit}
{saída de dados}
writeln(F,'graus farhenheit,corresponde a');
writeln(C,'graus centigrados');

C:=(K-273.15);{conversão da temperatura de celsius para kelvin}
{saída de dados}
writeln(K,'graus kelvin,corresponde a');
writeln(C,'graus centigrados');

C:=((R/1.8)- 273.15);{conversão da temperatura de celsius para rankine}
{saída de dados}
writeln(R,'graus rankine,corresponde a');
writeln(C,'graus centigrados');

  end.