Contoh Program Pascal Menu Makanan
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');