program toko_susu;
uses crt;
var 
susu, jmlh, krds, klng:integer;
kemasan, i, j:char;
begin 
clrscr;
Writeln('==========================');
Writeln('Selamat datang ditoko Susu');
Writeln('==========================');
Writeln('=== Daftar Menu Toko Kita ===');
Writeln('1. Susu SMG');
Writeln('a. Kaleng (10rb)');
Writeln('b. Kardus (5rb)');
Writeln();
Writeln('2. Susu Bendera');
Writeln('a. Kaleng (20rb)');
Writeln('b. Kardus (15rb)' );
write('Masukkan Pilihan Susu yang ingin anda pesan : (1 atau 2 )');
readln(susu);
    begin
        case (susu) of
            1: Writeln('Anda Memilih susu SMG');
            2: Writeln('Anda Memilih susu Bendera');
        else
            begin
                while (susu > 2) do
                    begin
                        Writeln('Pilihan hanya 1 atau 2');
                        Writeln('Masukkan kembali pilihan Anda');readln(susu);
                    end;
                end;
            end;
        end;
        Writeln;
        Writeln('Masukkan Jenis Kemasan yang diinginkan (A atau B) ');readln(kemasan);
        case (kemasan) of
            'a','A': Writeln('Anda memilih kemasan kaleng');
            'b','B': Writeln('Anda memilih kemasan Kardus');
        else
            Writeln('Anda Sehat ?');
 
        end;
        Writeln;
        write('Masukkan Jumlah Beli : ');readln(jmlh);
        Writeln;
    end.
end.