Contoh Program Pascal Menu Makanan

Lagi-lagi posting tentang pascal :)
Lumayan dah buat nostalgia. Check it out !

program paket_makanan;
uses wincrt;
const
     A=10000;
     B=15000;
     C=20000;
var
   menu:byte;
   jawab:char;
   jumlah,harga:longint;
procedure menu_utama;
begin
 clrscr;
     writeln('==========================');
     writeln('daftar menu KFC');
     writeln('__________________________');
     writeln('1.KOMBO 1');
     writeln('2.KOMBO 2');

     writeln('3.KOMBO 3');
     writeln('==========================');

     write('silahkan masukan pilihan menu anda[1/2/3]=');
     readln(menu);
end;
procedure paket_1;
begin
     clrscr;
     writeln('==========================');
     writeln('1.KOMBO 1');
     writeln('==========================');
     writeln('nasi+sayap+es sirup');
     writeln('harga  : 10.000');
     writeln('__________________________');
end;
procedure paket_2;
begin
     clrscr;
     writeln('=====================================');
     writeln('2.KOMBO 2');
     writeln('=====================================');
     writeln('nasi+paha+es teh+es krim');
     writeln('harga  : 15.000');
     writeln('_____________________________________');
end;
procedure paket_3;
begin
     clrscr;
     writeln('=========================================');
     writeln('3.KOMBO 3');
     writeln('=========================================');
     writeln('nasi+dada+soft drink+kentang goreng');
     writeln('harga  : 20.000');
     writeln('_________________________________________');
end;
procedure anu;
begin
     clrscr;
     menu_utama;
       if menu=1 then
       begin
            paket_1;readln;
            end
            else
       if menu=2 then
       begin
            paket_2;readln;
            end
            else
       if menu=3 then
       begin
            paket_3;readln;
       end;
       readln;
     write('jumlah pembelian:');readln(jumlah);
     if menu=1 then harga:=A*jumlah
     else if menu=2 then harga:=B*jumlah  
     else if menu=3 then harga:=C*jumlah;
     write('harga bayar:' , harga);readln;
write('anda ingin memesan menu lagi???[Y/T]:');
     readln(jawab);
     readln;
while upcase (jawab) <> 'T' do anu;
end;
begin
clrscr;
anu;
end.

nb  : kalau pakai pascal 6 atau pascal 7, 'uses wincrt' diganti dengan 'uses crt'
       uses wincrt kusus digunakan untuk pascal for window (TPW)