program pascal menentukan bulan

program menetukan_bulan;
uses crt;
var
bulan :integer;
begin
writeln('menen tukan bulan');
write('masukan angka bulan :');readln(bulan)  ;
if( bulan=1)then
writeln ('januari')
else
if (bulan=2)then
writeln ('februari')
else
if (bulan=3)then
writeln ('maret ')
else
if (bulan=4)then
writeln ('april')
else
if (bulan=5)then
writeln ('mei')
else
if( bulan=6)then
writeln ('juni')
else
if (bulan=7)then
writeln ('juli')

else
if( bulan=8)then
writeln ('agustus')
else
if (bulan=9)then
writeln ('seftember')
else
if( bulan=10)then
writeln ('november')
else
if( bulan=11)then
writeln ('oktober')
else
if( bulan=12)then
writeln ('desember')
else
writeln('eror') ;
readln
end.