Contoh Penggunaan Label pada Pascal

program bilganjil;
uses crt;
label menu, ceksaldo, tabung,tarik,keluar;

var
 pilih: char;

begin
 menu:
 clrscr;
 writeln('a. Cek Saldo');
 writeln('b. Tabung');
 writeln('c. Tarik');
 writeln('   i.  Maksimal batas penarikan adalah 10 juta');
 writeln('   ii. Saldo akhir tidak boleh kurang dari saldo minimal 100.000');
 writeln('d. Keluar');
 writeln;
 write('Silahkan pilih : '); readln(pilih);

 if (pilih='a') then goto ceksaldo else
 if (pilih='b') then goto tabung else
 if (pilih='c') then goto tarik else
 if (pilih='d') then goto keluar else write('tidak ada dalam pilihan'); readln; goto menu;

 ceksaldo :
 begin
  clrscr;
  writeln('Ini buat statement di Cek Saldo');
  writeln;
  write('Kembali ke menu ?? (Y/N)'); readln(pilih);
   if (pilih='y') then goto menu else exit;
 end;

 tabung:
 begin
  clrscr;
  writeln('Ini buat statement di Tabung');
  writeln;
  write('Kembali ke menu ?? (Y/N)'); readln(pilih);
   if (pilih='y') then goto menu else exit;
 end;

 tarik :
 begin
  clrscr;
  writeln('Ini buat statemen di Tarik');
  writeln;
  write('Kembali ke menu ?? (Y/N)'); readln(pilih);
   if (pilih='y') then goto menu else exit;
  end;

 keluar :
 begin
  clrscr;
 exit;
 end;

readln;
end.