menu warung

program menu_warung;
uses wincrt;
label
 1,2,3,4,keluar;

var
ketik,ulang : char;

begin

1:
 clrscr;
 writeLn('Menu Masakan Hari ini');
 writeLn('---------------------');
 writeLn;
 writeLn('a. Nasi Putih + Rendang');
 writeLn('b. Nasi Putih + Telur Dadar');
 writeLn('c. Nasi Putih + Tempe Goreng');
 writeLn;
 writeLn('Masukan Huruf a , b atau c untuk Pesanan Anda.');
 write('Pilihan Anda..? ');readLn(ketik);    

    if ketik='a' then
      begin           
       goto 2;
      end;
       if ketik='b' then
        begin
         goto 3;
        end;
         if ketik='c' then
          begin
           goto 4;
          end
          else
          begin
           clrscr;
           writeLn('Anda tidak pesan apa-apa.');
           writeLn('Mungkin Anda tidak Lapar..');
           writeLn;
           writeLn('Tekan Enter untuk keluar..');
           readLn;
           goto keluar;
          end;
2:
 clrscr;
 writeLn('Pesanan Anda Nasi Putih + Rendang, Terima Kasih.');
 writeLn;
 write('Pilih Lagi..(y/t) ? ');ReadLn(ulang);
       if (ulang='y') or (ulang='Y') then
          begin
            goto 1;
          end
       else
          begin
            goto keluar;
          end;
3:
 clrscr;
 writeLn('Pesanan Anda Nasi Putih + Telur Dadar,Terima Kasih.');
 writeLn;
 write('Pilih Lagi..(y/t) ? ');ReadLn(ulang);
      if (ulang='y') or (ulang='Y') then
         begin
           goto 1;
         end
      else
         begin
           goto keluar;
         end;
4:
 clrscr;
 writeLn('Pesanan Anda Nasi Putih + Tempe Goreng,Terima Kasih.');
 writeLn;
 write('Pilih Lagi..(y/t) ? ');ReadLn(ulang);
      if (ulang='y') or (ulang='Y') then
         begin
           goto 1;
         end
      else
         begin
           goto keluar;
         end;
         keluar:
end.