PROGRAM C++/ VB untuk mencari Suhu

program konversi_suhu;      
02           
03    uses crt;      
04           
05    var      
06     C, F, R, K : real;      
07     pilihutama : string;      
08     pilihmenu : integer;      
09     A, B  : string;      
10           
11    begin      
12     clrscr;      
13           
14     writeln('Program Konversi Suhu');      
15     writeln;      
16     writeln('Pilih Program Konversi : ');      
17     writeln('A. Celcius ke Satuan Lainnya');      
18     writeln('B. Satuan Lainnya ke Celcius');      
19     writeln('Pilihan Anda (A/B): ');      
20     readln(pilihutama);      
21           
22     if pilihutama=A then      
23     begin      
24            clrscr;      
25      writeln('Pilih Menu Konversi :');      
26      writeln('1. Celcius ke Reamur');      
27      writeln('2. Celcius ke Fahrenheit');      
28      writeln('3. Celcius ke Kelvin');      
29      writeln('Pilihan Anda (1/2/3): ');      
30      readln(pilihmenu);      
31           
32      if pilihmenu=1 then      
33      begin      
34       writeln('Masukkan Suhu Dalam Celcius: ');      
35       readln(C);      
36       R:=(4/5)*C;      
37       writeln('Maka Suhu Hasil Konversi: ',R:0:2);      
38      end else      
39      if pilihmenu=2 then      
40      begin      
41       writeln('Masukkan Suhu Dalam Celcius: ');      
42       readln(C);      
43       F:=(9/5)*C+32;      
44       writeln('Maka Suhu Hasil Konversi: ',F:0:2);      
45      end else      
46      begin      
47       writeln('Masukkan Suhu Dalam Celcius: ');      
48       readln(C);      
49       K:=C+273;      
50       writeln('Maka Suhu Hasil Konversi: ',K:0:2);      
51      end;      
52     end else      
53     begin      
54            clrscr;      
55      writeln('Pilih Menu Konversi :');      
56      writeln('1. Reamur ke Celcius');      
57      writeln('2. Fahrenheit ke Celcius');      
58      writeln('3. Kelvin ke Celcius');      
59      writeln('Pilihan Anda (1/2/3): ');      
60      readln(pilihmenu);      
61           
62      if pilihmenu=1 then      
63      begin      
64       writeln('Masukkan Suhu Dalam Reamur: ');      
65       readln(R);      
66       C:=(5/4)*R;      
67       writeln('Maka Suhu Hasil Konversi: ',C:0:2);      
68      end else      
69      if pilihmenu=2 then      
70      begin      
71       writeln('Masukkan Suhu Dalam Fahrenheit: ');      
72       readln(F);      
73       C:=(5/9)*F-32;      
74       writeln('Maka Suhu Hasil Konversi: ',C:0:2);      
75      end else      
76      begin      
77       writeln('Masukkan Suhu Dalam Kelvin: ');      
78       readln(K);      
79       C:=K-273;      
80       writeln('Maka Suhu Hasil Konversi: ',C:0:2)      
81      end;      
82     end;      
83     readkey;      
84    end.