Program_Menu_Masakan

program menu_masakan;
uses wincrt;
var
   pilih : byte;
procedure garis;
          begin
               writeln('*_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_*');          
          end;
begin
     pilih := 99;
     while (pilih < 1) or (pilih > 4) do
     begin
          garis;
          writeln;
          gotoxy(9,2);writeln('         MENU          ');
          writeln;
          gotoxy(9,4);writeln('       1. Nasi         ');
          gotoxy(9,5);writeln('       2. Ikan         ');
          gotoxy(9,6);writeln('       3. Minuman      ');
          gotoxy(9,7);writeln('       4. Selesai      ');
          writeln;
          garis;
          writeln;
          writeln('Pilan Menu Anda? ');
          readln(pilih);
          writeln;
     end;
     case pilih of
     1: begin
             pilih := 99;
             while (pilih < 1) or (pilih > 4) do
             begin
                  garis;
                  writeln;
                  writeln('NASI PILIHAN ANDA');
                  writeln('1. Nasi Putih');
                  writeln('2. Nasi Kuning');
                  writeln('3. Nasi Jagung');
                  writeln('4. Selesai');
                  writeln;
                  garis;
                  writeln;
                  writeln('Nasi Pilihan Anda? ');
                  readln(pilih);
                  writeln;
             end;
             case pilih of
             1: begin
                     garis;
                     writeln;
                     writeln('Nasi Putih Bermutu');
                     writeln('Aroma Harum');
                     writeln('Harga : Rp.5.000,- / Porsi');
                     writeln;
                     garis;
                     writeln;
                end;
             2: begin
                     garis;
                     writeln;
                     writeln('Nasi Kuning Banjar');
                     writeln('Dibuat Dengan Resep Warisan');
                     writeln('Harga : Rp.8.000,- / Porsi');
                     writeln;
                     garis;
                     writeln;
                end;
             3: begin
                     garis;
                     writeln;
                     writeln('Nasi Jagung Alami');
                     writeln('Diproses Dengan Cara Alami');
                     writeln('Harga : Rp. 6.000,- / Porsi');
                     writeln;
                     garis;
                     writeln;
                end;
        end;
     end;
       
     2: begin
            
             pilih := 99;
             while (pilih < 1) or (pilih > 4) do
             begin
                  garis;
                  writeln;
                  writeln('IKAN PILIHAN ANDA');
                  writeln('1. Ikan Segar');
                  writeln('2. Ikan Daging');
                  writeln('3. Ikan Sari Kali');
                  writeln('4. Selesai');
                  writeln;
                  garis;
                  writeln;
                  writeln('Pilihan Ikan Anda? ');
                  readln(pilih);
                  writeln;
             end;
             case pilih of
                  1: begin
                          garis;
                          writeln;
                          writeln('Ikan Gurami');
                          writeln('Ikan Yang Dikelola Langsung Dari Kolam Perikanan');
                          writeln('Harga : Rp 30.000,- / Porsi');
                          writeln;
                          garis;
                          writeln;
                     end;
                  2: begin
                          garis;
                          writeln;
                          writeln('Ikan Daging Sapi');
                          writeln('Daging Segar Yang Dipotong Langsung Dr Pemotongan Hewan');
                          writeln('Harga : Rp.60.000,- / Porsi');
                          writeln;
                          garis;
                          writeln;
                     end;
                  3: begin
                          garis;
                          writeln;
                          writeln('Ikan Wader');
                          writeln('Ikan Yang Masih Segar Dari Kali');
                          writeln('Harga : Rp.7000,- / Porsi');
                          writeln;
                          garis;
                          writeln;
                     end;
        end;
     end;
     3: begin
            
             pilih := 99;
             while (pilih < 1) or (pilih > 4) do
             begin
                  garis;
                  writeln;
                  writeln('MINUMAN PILIHAN ANDA');
                  writeln('1. Juice');
                  writeln('2. Kopi');
                  writeln('3. Soft Drink');
                  writeln('4. Selesai');
                  writeln;
                  garis;
                  writeln;
                  writeln('Pilihan Minuman Anda? ');
                  readln(pilih);
                  writeln;
             end;
             case pilih of
                  1: begin
                          garis;
                          writeln;
                          writeln('Aneka Juice Buah Segar');
                          writeln('Harga : Rp.12.000,- / Porsi');
                          garis;
                          writeln;
                     end;
                  2: begin
                          garis;
                          writeln;
                          writeln('Kopi Pilihan');
                          writeln('Harga : Rp. 6.000,- / Porsi');
                          writeln;
                          garis;
                          writeln;
                     end;
                  3: begin
                          garis;
                          writeln;
                          writeln('Aneka Soft Drink');
                          writeln('Harga : Rp.5.000,- / Porsi');
                          garis;
                          garis;
                          writeln;
                     end;
                  end;
             end;
     end;
end.