[Pascal] Membuat program Konversi Suhu Celsius - Reamur - Fahrenheit

Walaupun amat sederhana, sobat wajib bisa membuat dan memahaminya! Oke

program konversi_suhu;

uses crt;

var
 C, F, R, K : real;
 pilihutama : string;
 pilihmenu : integer;
 A, B  : string;

begin
 clrscr;

 writeln('Program Konversi Suhu');
 writeln;
 writeln('Pilih Program Konversi : ');
 writeln('A. Celcius ke Satuan Lainnya');
 writeln('B. Satuan Lainnya ke Celcius');
 writeln('Pilihan Anda (A/B): ');
 readln(pilihutama);

 if pilihutama=A then
 begin
        clrscr;
  writeln('Pilih Menu Konversi :');
  writeln('1. Celcius ke Reamur');
  writeln('2. Celcius ke Fahrenheit');
  writeln('3. Celcius ke Kelvin');
  writeln('Pilihan Anda (1/2/3): ');
  readln(pilihmenu);

  if pilihmenu=1 then
  begin
   writeln('Masukkan Suhu Dalam Celcius: ');
   readln(C);
   R:=(4/5)*C;
   writeln('Maka Suhu Hasil Konversi: ',R:0:2);
  end else
  if pilihmenu=2 then
  begin
   writeln('Masukkan Suhu Dalam Celcius: ');
   readln(C);
   F:=(9/5)*C+32;
   writeln('Maka Suhu Hasil Konversi: ',F:0:2);
  end else
  begin
   writeln('Masukkan Suhu Dalam Celcius: ');
   readln(C);
   K:=C+273;
   writeln('Maka Suhu Hasil Konversi: ',K:0:2);
  end;
 end else
 begin
        clrscr;
  writeln('Pilih Menu Konversi :');
  writeln('1. Reamur ke Celcius');
  writeln('2. Fahrenheit ke Celcius');
  writeln('3. Kelvin ke Celcius');
  writeln('Pilihan Anda (1/2/3): ');
  readln(pilihmenu);

  if pilihmenu=1 then
  begin
   writeln('Masukkan Suhu Dalam Reamur: ');
   readln(R);
   C:=(5/4)*R;
   writeln('Maka Suhu Hasil Konversi: ',C:0:2);
  end else
  if pilihmenu=2 then
  begin
   writeln('Masukkan Suhu Dalam Fahrenheit: ');
   readln(F);
   C:=(5/9)*F-32;
   writeln('Maka Suhu Hasil Konversi: ',C:0:2);
  end else
  begin
   writeln('Masukkan Suhu Dalam Kelvin: ');
   readln(K);
   C:=K-273;
   writeln('Maka Suhu Hasil Konversi: ',C:0:2)
  end;
 end;
 readkey;
end.

Jangan Lupa Komentar Yaa..