Program Konversi Suhu

Program ProsedurSuhu
Uses  WinCrt;
Var C,R,F,K,Suhu : Real;

Procedure Reamur
begin
R:=4/5*c;
end;

Procedure Fahrenhit;
begin
  F:=9/5*c;
end;

Procedure Kelvin;
begin
  K:=273+c;
end

Begin
  Write('Masukan Suhu C = ');
  Readln(Suhu);
  reamur;
  fahrenhit;
  kelvin;
  Write('Suhu R = ,’R:4’);
  Write('Suhu F = ,’F:4’);
  Write('Suhu K = ,’K:4’);
End.