Program konversi suhu, Celcius ke fahrenheit ; Celcius ke kelvin ; Celcius ke Reamur

Program konversi_suhu;
uses winCrt;

        Var pilihan :byte ;
              C, R, F,k :real;
        Begin

         writeln ('pilihan');
         writeln ('1. menghitung suhu celcius ke fahrenheit');
         writeln ('2. Menghitung suhu celcius ke kelvin');
         writeln ('3. menghitung suhu celcius ke reamur');
         writeln ('0. selesai .');
        pilihan:=9;
        while (pilihan<0) Or (pilihan>3) Do
              Begin
                  Writeln('pilih nomor (0-3) ?');
                  readln(pilihan);
              End;
        If pilihan =1 then
           begin
                Write('masukkan suhhu dalam Celcius');Read (C);
                F:= (9/5)*c+32;
                writeln('jadi suhu dalam fahrenheit adalah',F:9:2);
           End;
        If pilihan =2 then
           begin
                Write('masukkan suhu dalam celcius');Read (C);
                k:= c+273.15 ;
                Writeln('Jadi suhu dalam kelvin adalah',k:9:2);
           End;
        If pilihan =3 then
           begin
                Write('masukkan suhu dalam Celcius');Read(C);
                R:= c*0.8 ;
                Writeln('Jadi suhu dalam Reamur adalah = ',R:9:2);
                end;
        if pilihan =0 then
                begin
                write ('program Selesai');
                end;

             readln;
             readln;
             readln;

end.