• Source 
    1. program toko_susu;
    2. uses crt;
    3. var 
    4. susu, jmlh, krds, klng:longint;
    5. kemasan, i, j:char;
    6. begin 
    7.             clrscr;
    8.             Writeln('==========================');
    9.             Writeln('Selamat datang ditoko Susu');
    10.             Writeln('==========================');
    11.             Writeln('=== Daftar Menu Toko Kita ===');
    12.             Writeln('1. Susu SMG');
    13.             Writeln('a. Kaleng (10rb)');
    14.             Writeln('b. Kardus (5rb)');
    15.             Writeln();
    16.             Writeln('2. Susu Bendera');
    17.             Writeln('a. Kaleng (20rb)');
    18.             Writeln('b. Kardus (15rb)' );
    19.             write('Masukkan Pilihan Susu yang ingin anda pesan : (1 atau 2 )');
    20.             readln(susu);
    21.             begin
    22.                case (susu) of
    23.                 1: Writeln('Anda Memilih susu SMG');
    24.                 2: Writeln('Anda Memilih susu Bendera');
    25.                 else
    26.                     begin
    27.                         while (susu > 2) do
    28.                             begin
    29.                              Writeln('Pilihan hanya 1 atau 2');
    30.                              Writeln('Masukkan kembali pilihan Anda');readln(susu);
    31.                             end;
    32.                         end;
    33.                     end;
    34.                 end;
    35.         Writeln;
    36.         Writeln('Masukkan Jenis Kemasan yang diinginkan (A atau B) ');readln(kemasan);
    37.         case (kemasan) of
    38.             'a','A': Writeln('Anda memilih kemasan kaleng');
    39.             'b','B': Writeln('Anda memilih kemasan Kardus');
    40.         else
    41.             Writeln('Anda Sehat ?');
    42.  
    43.         end;
    44.         Writeln;
    45.         write('Masukkan Jumlah Beli : ');readln(jmlh);
    46.         Writeln;
    47.         If (susu = 1) then
    48.             begin
    49.                 if(upcase(kemasan)='A') then
    50.                     begin   
    51.                         klng:=10000;
    52.                         jmlh:=jmlh * klng;
    53.                         Writeln('Harga Satuan Susu SMG Kaleng : RP.',klng);
    54.                     end;
    55.                 if (upcase(kemasan))='B' then
    56.                     begin
    57.                         krds:=5000;
    58.                         jmlh:=jmlh * krds;
    59.                         Writeln('Harga Satuan Susu SMG Kardus =Rp.',krds);
    60.                     end;
    61.             end;
    62.         if (susu = 2) then
    63.             begin
    64.                 if(upcase(kemasan)='A') then
    65.                     begin   
    66.                         klng:=20000;
    67.                         jmlh:=jmlh * klng;
    68.                         Writeln('Harga Satuan Susu SMG Kaleng : RP.',klng);
    69.                     end;
    70.                 if (upcase(kemasan))='B' then
    71.                     begin
    72.                         krds:=15000;
    73.                         jmlh:=jmlh * krds;
    74.                         Writeln('Harga Satuan Susu SMG Kardus =Rp.',krds);
    75.                     end;
    76.             end;
    77.         Writeln('Total Belanja Anda = Rp.',jmlh);
    78.  
    79.  
    80.  
    81.  
    82. end.