Program konversi suhu, Celcius ke fahrenheit ; Celcius ke kelvin ; Celcius ke Reamur

Program konversi_suhu;
uses winCrt;

        Var pilihan :byte ;
              C, R, F,k :real;
        Begin

         writeln ('pilihan');
         writeln ('1. menghitung suhu celcius ke fahrenheit');
         writeln ('2. Menghitung suhu celcius ke kelvin');
         writeln ('3. menghitung suhu celcius ke reamur');
         writeln ('0. selesai .');
        pilihan:=9;
        while (pilihan<0) Or (pilihan>3) Do
              Begin
                  Writeln('pilih nomor (0-3) ?');
                  readln(pilihan);
              End;
        If pilihan =1 then
           begin
                Write('masukkan suhhu dalam Celcius');Read (C);
                F:= (9/5)*c+32;
                writeln('jadi suhu dalam fahrenheit adalah',F:9:2);
           End;
        If pilihan =2 then
           begin
                Write('masukkan suhu dalam celcius');Read (C);
                k:= c+273.15 ;
                Writeln('Jadi suhu dalam kelvin adalah',k:9:2);
           End;
        If pilihan =3 then
           begin
                Write('masukkan suhu dalam Celcius');Read(C);
                R:= c*0.8 ;
                Writeln('Jadi suhu dalam Reamur adalah = ',R:9:2);
                end;
        if pilihan =0 then
                begin
                write ('program Selesai');
                end;

             readln;
             readln;
             readln;

end.

Program untuk menentukan jenis bilangan genap atau ganjil.

Program menentukan_jenis_bilangan_genap_atau_ganjil ;
uses winCrt;

var
x, sisa : integer;
ket : string;

Begin

Write ('Masukan Bilangan yang ingin ditentukan jenisnya : '); Readln (x);

sisa := x mod 2;

if sisa = 0 then ket := 'Genap' else ket := 'Ganjil';

write ('Jadi jenis bilangan ini adalah :'); write (ket);

end.

Program Piramida Bintang

program Piramida_bintang;
uses wincrt;

var c,a,b,n : integer;
begin
  write ('masukkan angka penunjuk jumlah bintang terakir : ');readln(n);
  writeln;
  if n mod 2 = 0 then
    for a := 1 to (n div 2) do begin
      for b := 1 to (n div 2)-a do
      write (' ');
      for c := 1 to (a*2) do
        write ('*');
      writeln;
    end
  else
    for a := 1 to (n div 2)+1 do begin
      for b := 1 to (n div 2)+(1-a) do
      write (' ');
      for c := 1 to (a*2)-1 do
        write ('*');
      writeln;
    end;
end.