Program konversi suhu dari Celcius ke Reamur, Fahrenheit dan Kelvin

Program Konversi_Suhu;
Var pilihan:byte;
C, F, Re, K:real;
Begin
Writeln(‘Pilihan’);
Writeln(’1. Program Konversi Celcius ke Reamur’);
Writeln(’2. Program Konversi Celcius ke Farenhait’);
Writeln(’3. Program Konversi Celcius ke Kelvin’);
Writeln(’0. Selesai’);
Pilihan:=9;
While (pilihan <1) or (pilihan >3) do
Begin
Writeln(‘Pilih nomer (0-3)?’);
read(pilihan);
end;
if pilihan=1 then
Begin
Writeln(‘Berapa derajat Celcius?’);
Read(C);
Re:= C*0.8;
Writeln(C,’derajat Celcius adalah’,Re,’derajat Reamur’);
Readln;
End;
if pilihan=2 then
Begin
Writeln(‘Berapa derajat Celcius?’);
Read(C);
F:= C*1.8+32;
Writeln(C,’derajat Celcius adalah’,F,’derajat Farenhait’);
Readln;
End;
if pilihan=3 then
Begin
Writeln(‘Berapa derajat Celcius?’);
Read(C);
K:= C+273.15;
Writeln(C,’derajat Celcius adalah’,K,’Kelvin’);
Readln;
End;
Readln;
Readln;
Readln;
End.