Menentukan bulan "algoritma dan pascal"

Program  Menentukan Bulan;

Deklarasi :

A : integer

Deskripsi :

Write(‘Masukan  Angka 1-12:’)

Read (A)

Case A Of

1 : write(‘Januari’)

2 : write(‘Februari’)

3 : write(‘Maret’)

4 : write(‘April’)

5 : write(‘Mei’)

6 : write(‘Juni’)

7 : write(‘Juli’)

8 : write(‘Agustus’)

9 : write(‘September’)

10 : write(‘Oktober’)

11 : write(‘November’)

12 : write(‘Desember’)

Otherwise

Write(‘angka yang anda masukan salah, dalam setahun hanya ada 12 bulan’)

Endcase.

 dan ini printscreennya jika mau di coba di programnya!