Angka Ke Bulan

Program angka_ke_bulan;
uses wincrt;
var
A:integer;
Begin
Writeln;
Write (‘masukkan angka bulan : ‘);readln(A);
Case A of
1  : writeln (‘Bulan Januari’);
2  : writeln (‘Bulan Februari’);
3  : writeln (‘Bulan Maret’);
4  : writeln (‘Bulan April’);
5  : writeln (‘Bulan Mei’);
6  : writeln (‘Bulan Juni’);
7  : writeln (‘Bulan Juli’);
8  : writeln (‘Bulan Agustus’);
9  : writeln (‘Bulan September’);
10 : writeln (‘Bulan Oktober’);
11 : writeln (‘Bulan Nopember’);
12 : writeln (‘Bulan Desember’);
Else
End;
End.