Contoh PROGRAM Pilihan

uses wincrt;

label

1,2,keluar;{ Deklarasi label yg ditentukan }

var
ketik,ulang: char;

begin

1: {  Label ke-1 sebagai pokok program }
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 2;
 end;
                            
if ketik='c'        then
begin
 goto 2;
 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:{ Label ke2 Bila User Pilih a/A}
clrscr;
writeln(' Pesanan Anda Nasi Putih + Rendang, Terima Kasih.');
writeln;
write(' Pilih Lagi..(y/n)?');
readln(ulang);

if (ulang='y') or (ulang='Y') then
begin
goto 1;
end
  else
  begin
  goto keluar;
  end;

  keluar:
end.