Program Menu Makanan_2

program menu;
uses wincrt;
var
a:integer;
lagi:char;
begin
lagi:='Y';
while lagi = 'Y' do
begin
gotoxy(10,3);write('Menu makanan');
gotoxy(10,5);write('1. Ayam Bakar');
gotoxy(10,6);write('2. Nasi Goreng');
gotoxy(10,7);write('3. Pecel Lele');
gotoxy(10,8);write('4. Roti Bakar');
gotoxy(10,10);write('Menu Pilihan Anda adalah ');
readln(a);
if a=1 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Ayam Bakar');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=2 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Nasi Goreng');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=3 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Pecel Lele');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=4 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Roti Bakar');
gotoxy(10,6);write('Selamat Menikmati');
end;

gotoxy(10,15);write('Mau diulang lagi (Y/T)? ');readln(lagi);
end;
end.