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