Pemograman Komputer

program Gunawan;
uses wincrt;
var n: integer;

begin
writeln('Selamat datang di prgram percobaan case of');
writeln('******************************************');
writeln;
writeln(' 1. Jogja');
writeln(' 2. Surabaya');
writeln(' 3. Bali');
writeln(' 4. Lombok');
writeln;
write('Anda memilih Nomor berapa (1/2/3/4) ? ');readln(n);
writeln;
case n of
1: writeln('Anda telah memilih Jogja');
2: writeln('Anda telah memilih Surabaya');
3: writeln('Anda telah memilih Bali');
4: writeln('Anda telah memilih Lombk');
end;
end.