Program Konversi Suhu

//fandy adam e1e109053
Program Konversi_Suhu;

var
     pilih : integer;
     c,r,f : real;

procedure celcius;
     begin
          write('suhu celcius : '); readln(c);
          r:=(4/5)*c;
          f:=(9/5)*c+32;
          writeln('suhu rearmur : ',r:4:2,' derajat ');
          writeln('suhu fahrenheit : ',f:4:2,' derajat ');
     end;


procedure rearmur;
     begin
          write('suhu rearmur : '); readln(r);
          c:=(5/4)*r;
          f:=(9/4)*r+32;
          writeln('suhu celcius : ',c:4:2,' derajat ');
          writeln('suhu fahrenheit : ',f:4:2,' derajat ');
     end;

procedure fahrenheit;
     begin
          write('suhu fahrenheit : '); readln(f);
          c:=(5/9)*(f-32);
          r:=(4/9)*(f-32);
          writeln('suhu celcius : ',c:4:2,' derajat ');
          writeln('suhu rearmur : ',r:4:2,' derajat ');
     end;


begin
     writeln('Program Konversi Suhu');
     writeln('=====================');
     writeln('Tentukan arah konersi');
     writeln('1. celcius - rearmur - fahrenheit');
     writeln('2. rearmur - celcius - fahrenheit');
     writeln('3. fahrenheit - celcius - rearmur');
     write('masukkan pilihan : '); readln(pilih);
     case pilih of
     1 : begin
               celcius;
          end;
     2 : begin
               rearmur;;
          end;
     3 : begin
               fahrenheit;;
          end;
     end;
     readln;
end.