Program Bulan

program bulan;
 
uses Wincrt;
 
conts Bulan : array[1..12] of string = ('Januari','Februari','Maret','April','Mei','Juni','Juli','Agustus','September','Oktober','November','Desember');
 
var
     noBulan :integer;
 
begin
     write('Masukkan nomor bulan : '); readln(noBulan);
     write('Nama bulan ke-', noBulan, 'adalah',Bulan[noBulan]);
     readln;
end.