Case Bulan

program case_of;

uses
    wincrt;
var
    bulan:byte;

begin
  writeln ('Program Mencetak Nama Bulan');
  writeln('____________________________');
  write('Masukkan no Bulan[1..8] : ');readln(bulan);
case bulan of
     1:writeln ('Januari');
     2:writeln ('Februari');
     3:writeln ('Maret');
     4:writeln ('April');
     5:writeln ('Mei');
     6:writeln ('juni');
     7:writeln ('Juli');
     8:writeln ('Agustus');
else
    writeln('Nama Gak Ada');
end;
end.