Program Menu dengan Case Of

program case_of;
uses wincrt;
var
a,b:integer;
begin
gotoxy(28,4);writeln('Menu Pilihan');
gotoxy(26,5);writeln('===============');
gotoxy(28,6);writeln('1. Soto');
gotoxy(28,7);writeln('2. Mie Ayam');
gotoxy(23,9);write('masukkan pilihan anda: ');read(a);
case a of
1: begin
clrscr;
gotoxy(30,7);writeln('Anda Memilih SOTO');
end;
2: begin
clrscr;
gotoxy(30,7);writeln('Anda Memilih MIE AYAM');
end;
else
begin
clrscr;
gotoxy(23,7);writeln('Maaf Pilihan Anda tidak ada dalam menu');
end
end
end.