Program bulan di pascal kiriman Yogi Priyo Prayogo

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.

Yogi Priyo Prayogo
[email protected]