Catatan : Disini saya menggunakan rumus yang berbeda dari soal yaitu untuk fahreinheit menggunakan rumus 4/5*C + 32 dan Kelvin menggunakan rumus C + 273,15 serta menggunakan program Pascal

var

 C: double;

 suhu: string;

 nilaiR, nilaiF, nilaiK: double;

begin

 // Ketik nilai suhu celsius

 write('Masukkan nilai Celcius (dalam bentuk angka saja) : '); readln(C);

writeln;

 // Ketik suatu suhu yang ingin dikonversi dari suhu Celcius

 writeln('Konversi Celsius yang diinginkan : ');

 writeln('1. Reamur          2. Fahreinheit          3. Kelvin');

 writeln('Ketik Suhu, contoh : Kelvin');

 write(': '); readln(suhu);

 writeln;

 // Perhitungan Ekspresi atau rumus konversi

 nilaiR := C*4/5;

 nilaiF := C*9/5 + 32;

 nilaiK := C+273.15;

 // start if then else.....

 if (suhu = 'Reamur') then begin

   writeln('Hasil = ', nilaiR:0:2, ' derajat reamur');

 end else if (suhu = 'Fahreinheit') then begin

   writeln('Hasil = ', nilaiF:0:2, ' derajat fahreinheit');

 end else if (suhu = 'Kelvin') then begin

   writeln('Hasil = ', nilaiK:0:2, ' derajat kelvin');

 end else begin

   writeln('Mohon untuk mengetik dengan benar');

 end;

end.