Program Pascal menggunakan Procedure

program daftarmakan;
uses wincrt;
var
   x : integer;
   yt : char;

procedure kembali;
begin
     write ('Ingin kembali ke menu utama? [Y/T] : ');
     readln (yt);
end;

procedure taktahu;
begin
     clrscr;
     writeln ('Menu tidak terdefinisi');
     readln;
     kembali;
end;

procedure menu3;
begin
     clrscr;
     writeln ('DAFTAR ISI MENU 3');
     writeln ('==================');
     writeln ('1. Nasi Putih');
     writeln ('2. Ayam Bakar');
     writeln ('==================');
     writeln ('Harga : Rp. 10.000');
     readln;
     kembali;
end;

procedure menu2;
begin
     clrscr;
     writeln ('DAFTAR ISI MENU 2');
     writeln ('==================');
     writeln ('1. Nasi Putih');
     writeln ('2. Tahu-tempe');
     writeln ('==================');
     writeln ('Harga : Rp. 5.000');
     readln;
     kembali;
end;

procedure menu1;
begin
     clrscr;
     writeln ('DAFTAR ISI MENU 1');
     writeln ('==================');
     writeln ('1. Nasi Kuning');
     writeln ('2. Teh Manis');
     writeln ('==================');
     writeln ('Harga : Rp. 4.000');
     readln;
     kembali;
end;

procedure utama;
begin
     clrscr;
     writeln ('DAFTAR MENU MAKANAN');
     writeln ('===================');
     writeln ('[1] Menu 1');
     writeln ('[2] Menu 2');
     writeln ('[3] Menu 3');
     writeln ('[4] Keluar');
     writeln ('===================');
     write ('Masukan pilihan anda. [1/2/3/4] : ');
     readln (x);
     if (x = 1) then
        menu1
     else
     if (x = 2) then
        menu2
     else
     if (x = 3) then
        menu3
     else
     if (x = 4) then
        exit;
     if (x > 4) then
        taktahu;
end;

begin
     clrscr;
     utama;
     while (yt = 'y') do
        utama;
     while (yt = 'Y') do
        utama;
end.


Hasil Program setelah di Run :