Program Case 6

program nama_bulan;

uses crt;

var bulan:integer;

kategori:string;

begin

        clrscr;

        write('masukkan bulan dalam angka: ');

        readln(bulan);

case bulan of

        1 : kategori := 'januari';

        2 : kategori := 'februari';

        3 : kategori := 'maret';

        4 : kategori := 'april';

        5 : kategori := 'mei';

        6 : kategori := 'juni';

        7 : kategori := 'juli';

        8 : kategori := 'agustus';

        9 : kategori := 'september';

        10: kategori := 'oktober';

        11: kategori := 'november';

        12: kategori := 'desember';

end;

writeln ('angka yang anda masukkan adalah bulan ',kategori);

readln;

end.