program konversi suhu

program konversi;
uses wincrt;
var pilihan,c,f,k,r: real;pilihasn:string;
        begin
        writeln('konversi suhu');
        writeln('1. menghitung C ke F');
        writeln('2. menghitung C ke K');
        writeln('3. menghitung C ke R');
        begin
        writeln('pilih nomor(1-3)?');read(pilihan);
        end;


        if pilihan= 1 then
        begin
        write('tulis berapa derajat celcius?');
        readln(c);
        f:=32+c*1.8;
        writeln;
        writeln(c,'derajat celcius adalah ',F,'derajat fahrenheit');
        readln;
        end;

        if pilihan =2 then
        begin
        write('tulis berapa derajat celcius?');
        readln(c);
        k:=c+273.15;
        writeln;
        writeln(c,'derajat celcius adalah',k,'derajat kelvin');
        readln;
        end;

        if pilihan =3 then
        begin
        write('tulis berapa derajat celcius?');
        readln(C);
        r:=c*0.8;
        writeln;
        writeln(c,'derajat celcius adalah',r,'derajat reamur');
        readln;
        end;
        end.