Program untuk Memilih Warna

var
w : integer;
mau : char;
begin
ulang;
writeln(‘pilihan warna :’);
writeln(‘1. Hijau, 2. Kuning, 3. Kelabu, 4. Merah muda, 5. Biru’);
writeln(‘masukkan nomor warna yang diinginkan’);
readln(w);
case w of
1: writeln(‘hijau’);
2: writeln(‘kuning’);
3: writeln(‘kelabu’);
4: writeln(‘merah muda’);
5: writeln(‘biru’);
else writeln(‘anda belum beruntung’);
end;
readln;
write(‘mau mengulang?’); readln(mau);
if mau=’y’then goto ulang;
end