program konversi suhu

Program Konversi_Suhu;
Var pilihan:byte;
C, F, Re, K:real;
Begin
Writeln(‘Pilihan’);
Writeln(’1. Dari Derajat Celcius ke Reamur’);
Writeln(’2. Dari Derajat Celcius ke Farenhait’);
Writeln(’3. Dari Derajat 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.