Contoh program bulan di pascal kiriman Dianita Wahyu Kurniasih
Program Contoh_Bulan;
uses wincrt;
const
Bulan :array[1..12] of string =
('Januari','Februari','Maret','April','Mei','Juni','Juli',
'Agustus','September','Oktober','November','Desember');
var
NoBulan:integer;
begin
clrScr;
write ('Masukkan nomor bulan: ' ); readln (NoBulan);
write ('Nama bulan ke- ' ,NoBulan , ' adalah ',
Bulan [NoBulan]);
readln;
end.
Dianita Wahyu Kurniasih
[email protected]