Program pascal konversi celcius

Program celcius_fahrenheit_kelvin_reamur;

Uses wincrt;

Var pilihan: byte;

    C,f,k,r: real;

Begin

  Writeln(‘pilihan’);

  Writeln(‘1.menghitung celcius ke fahrenheit’);

  Writeln(‘2.menghitung celcius ke kelvin’);

  Writeln(‘3.menhitung celcius ke reamur’);

  Writeln(‘0.selesai.’);

  Pilihan :=5;

While(pilihan<0) or (pilihan>3)do

   Begin

    Writeln(‘pilih nomor(0-3) ?’);

    Readln(pilihan);

   End;

If pilihan =1 then

  Begin

   Write(‘ketik 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(‘ketik 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(‘ketik berapa derajat celcius? ‘);

   Readln(c);

   R := c*0.8;

   Writeln;

   Writeln(c,’derajat celcius adalah ‘,R.’derajat reamur’);

   Readln;

  End;

End.