praktek tanpa prosedur

program prosedur;
uses wincrt;
var
pil : char;


begin

repeat
clrscr

writeln ('MENU');
writeln ('1. Bakso');
writeln ('2. Bakmi');
writeln ('3. Siomay');
writeln ('4. Soto');
writeln ('0. Bayar');
writeln;
write ('pilihan anda? '); readln (pil);

case pil of
'1' : begin
write ('Pesan Bakso');readln;
end;
'2' : begin
write ('pesan Bakmi');readln;
end;
'3' : begin
write ('pesan Siomay');readln;
end;
'4' : begin
write ('Pesan Soto');readln;
end;
'0' : begin
writeln ('Bayar dan bye');
end;
end;

until pil = '0';

end.