Program Pilihan Menu Makanan

uses wincrt;
var
a:real;
begin
writeln('menu apa yang anda inginkan hari ini?');
writeln('=====================================');
writeln;
writeln;
writeln('1. nasi goreng telor');
writeln('2. friedchicken');
writeln('3. tempe penyet');
writeln('4. steak');
writeln('5. sup iga sapi');
writeln;
writeln('pilihan menu anda: ');read(a);
if a=1 then
begin
clrscr;
write('anda memilih nasi goreng');
end
else
if a=2 then
begin
clrscr;
write('anda memillih friedchicken');
end
else
if a=3 then
begin
clrscr;
write('anda memilih tempe penyet');
end
else
if a=4 then
begin
clrscr;
write('anda memilih steak');
end
else
if a=5 then
begin
clrscr;
write('anda memilih sup iga sapi');
end
else
begin
clrscr;
write('maaf menu yang anda pilih tidak ada di daftar menu');
end;
writeln;
end.